Discussion :

[chito79000]

Bonjour,

Je voulais savoir si c'était possible de renommer un fichier sans dupliquer le fichier..
Exemple : mon fichier se nomme "Monfichier1" je lance la macro pour renommer de la façon suivante "Testmonfichier1-2015-11-9"
Ici à la fin j'aurais deux fichiers dans mon dossier, un s'appelant Monfichier1 et l'autre Testmonfichier1-2015-11-9

Voila ma question peut on renommer un fichier sans le dupliquer...

[antonysansh]

Bonjour chito79000,

Si la macro est sur le fichier en question, il me parait compliqué de renommer un fichier en cours de lecture.

Sinon tu peux aller voir dans la FAQ sur la manipulation de fichier (Move d'un FSO pour renommer par exemple)
Manipulation de fichier en VB

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name "Monfichier1" As "Testmonfichier1-2015-11-9"

Ne pas oublier, auparavant, de se mettre sur le bon disque avec un ChDrive et dans le bon répertoire avec un ChDir.

[chito79000]

antonysansh Non la macro n'est pas sur le fichier en question....

Menhir je le rajoute à mon code ?

[Menhir]

Menhir je le rajoute à mon code ?

Non, tu en fais de la confiture.

C'est une ligne de code qui fait ce que tu demandes dans ton premier message.
Je ne sais pas ce que tu veux en faire.
Si cette procédure fait partie d'une macro plus vaste, oui, il faut que tu le rajoutes.

[chito79000]

Voici une partie de mon code de base:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Workbooks.Open Filename:="fichier1.xls"
......
......
......
......
......
......
 Chemin = "chemin"
 ActiveWorkbook.SaveAs Chemin & variable & ".xls"
 ActiveWorkbook.Close

après j'ouvre ce fichier pour faire des vérifications et ajouter certaines choses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Workbooks.Open Filename:="variable.xls"
Chemin = "chemin"
ActiveWorkbook.SaveAs Chemin & variable & " & complément nom &" ".xls"
ActiveWorkbook.Close

[Menhir]

Ca m'étonnerait que ton second code fonctionne avec des guillemets placés ainsi (ligne 3).
En tout cas, n'essaye pas de renommer un fichier ouvert.