Sub Renomme()
'F1
Dim OldName, NewName
OldName = "C:\Test\Copie (zz) de test.jpg": NewName = Replace(OldName, " ", "") '"C:\Test\Copie (zz) de test.jpg" ' 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.
End Sub