1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Dim OldName, NewName
OldName = "ANCFICH": NewName = "NOUVFICH" ' Définit les noms de fichiers.
Name OldName As NewName ' Renomme le fichier.
OldName = "C:\MONREP\ANCFICH":NewName = "C:\VOTREREP\NOUVFICH"
Name OldName As NewName ' Déplace et renomme le fichier.
'et voilà ce que j en ai fait
Dim OldName, NewName
'OldName = "result": NewName = texte ' Définit les noms de fichiers.
'Name OldName As NewName ' Renomme le fichier.
'OldName = "C:\Documents and Settings\LAFONTAINE\Bureau\result.xls": NewName = "C:\Documents and Settings\LAFONTAINE\Bureau\result.xls"
'Name OldName As NewName ' Déplace et renomme le fichier. |
Partager