[resolu]Changer le nom d'un fichier a l'enregistrement

Changer le nom d'un fichier a l'enregistrement [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2006 à 09:53:51    

Suite a mon topic sur l'enregistrement d'un fichier .xls, j'ai une autre question.
J'aimerai qu'a chaque fois que je fais mon operation d'enregistrement, le nom de fichier change.
 
En fait j'aimerai qu'il prenne le nom d'une textbox+la date du jour.
 
Je ne sais pas trop comment m' y prendre, merci de votre aide :)


Message édité par Dachocapic le 27-06-2006 à 11:38:26
Reply

Marsh Posté le 27-06-2006 à 09:53:51   

Reply

Marsh Posté le 27-06-2006 à 10:03:10    

en reprenant ce qui apparait dans le topic précédent, au lieu de faire un  
SaveAs = "C:\mondocument.xls"
tu fais une concaténation
SaveAs = "C:\mondocument" & variable_incrémentée_selon_ton_choix & ".xls"

Reply

Marsh Posté le 27-06-2006 à 10:24:11    

alors j'ai mis ca Classeur.SaveCopyAs "C:\" & Text1.Text & ".xls"
 
Ca marche, ca me donne le nom, mais je voudrais rajouter la date d'aujourdhui derrieire, donc j'ai mis :
Classeur.SaveCopyAs "C:\" & Text1.Text & date ".xls"
 
Mais ca me renvoi une erreur :/

Reply

Marsh Posté le 27-06-2006 à 10:30:42    

Dachocapic a écrit :

alors j'ai mis ca Classeur.SaveCopyAs "C:\" & Text1.Text & ".xls"
 
Ca marche, ca me donne le nom, mais je voudrais rajouter la date d'aujourdhui derrieire, donc j'ai mis :
Classeur.SaveCopyAs "C:\" & Text1.Text & date ".xls"
 
Mais ca me renvoi une erreur :/


et en passant par une variable qui stocke la date du style :
dim madate
madate=date
Classeur.SaveCopyAs "C:\" & Text1.Text & madate ".xls"
 
 :sarcastic:

Reply

Marsh Posté le 27-06-2006 à 10:47:38    

Pareil ... ca me sort une erreur de " fichier innacesible " erreur d'execution 1004
 
Verifier que le dossier existe O_o  
Verifier que le dossier dans lequel se trouve le fichier n'est pas en lecture seul.  
 
Ca a kkchose a voir ces trucs la ?

Reply

Marsh Posté le 27-06-2006 à 10:53:45    

Dachocapic a écrit :

Pareil ... ca me sort une erreur de " fichier innacesible " erreur d'execution 1004
 
Verifier que le dossier existe O_o  
Verifier que le dossier dans lequel se trouve le fichier n'est pas en lecture seul.  
 
Ca a kkchose a voir ces trucs la ?


ton chemin d'accès doit etre faux. tout simplement
pkoi ne passes tu pas directement par SaveAs et pas SaveCopyAs?

Reply

Marsh Posté le 27-06-2006 à 11:02:51    

Heu bonne question...  
Je viens de mettre en save as , et l'erreur renvoyé est la meme sauf que " Microsoft ne peut acceder au fichier "C:\20\06"  
quand tu dis mon chemin d'acces doit etre faux,tu veux dire que j'ai pas de disque c: en fait ?  
parcque cest difficile de faire plus simple comme chemin d'acces. ^^

Reply

Marsh Posté le 27-06-2006 à 11:05:37    

quel est le texte de Text1 ?
perso je passe par des box ou des cellules, et je mets .value...

Reply

Marsh Posté le 27-06-2006 à 11:09:12    

Pour l'instant ya rien dans la textbox 1,mais a l'avenir ca sera un nom et prenom.
 
Tu peux detailler ta technique stp  ?

Reply

Marsh Posté le 27-06-2006 à 11:10:41    

Bonjour,
 
Si ta date est au format jj/mm/ssaa. L'appli considére les "/" comme des répertoires.
Si tu mets ta date au format jj-mm-ssaa ca devrait marcher

Reply

Marsh Posté le 27-06-2006 à 11:10:41   

Reply

Marsh Posté le 27-06-2006 à 11:13:30    

exemple si tu veux implémenter un fichier selon un choix dans une liste:
nom de fichier final c:\PTCFranceTelecomdu27/06/2006
tu peux très bien avoir une listbox avec :
-CDC
-Rapport
-Devis
-Contrat
 
une autre avec :
-EDF
-FranceTelecom
-LaPoste
 
au final tu enregistres ton document sous le nom
SaveAs = "c:\" & listbox1.value & listbox2.value & "du" & madate & ".xls"
:)

Reply

Marsh Posté le 27-06-2006 à 11:26:29    

Ok  jpcheck :) Mais malheureusement je dois garder ma txtbox.  
Paul hood, ca veut dire que si je fais un test avec un nom,ca devrait fonctionner alors ?  
sinom,comment on change le format de la date ?

Reply

Marsh Posté le 27-06-2006 à 11:29:04    

passe alors par textbox.value ^^

Reply

Marsh Posté le 27-06-2006 à 11:30:25    

Si tu recupere la date avec la fonciton Date. Essaie
 Format(Date, "dd-mm-aaaa" )
 
Ca dois passer.

Reply

Marsh Posté le 27-06-2006 à 11:38:05    

Effectivement ca passe :)  
 
Merci beaucoup a vous 2 , Jpcheck et Paul Hood, parcque c'est vraiment pas facile quand on debute on est trop paumé quoi ...
Enfin bref,merci cest cool.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed