Bonjour à tous,
Je dois renommer plusieurs fichiers, j'ai fais cette partie de code mais comme j'ai plusieurs fichiers je ne sais pas comment mis prendre.
Sub RenommerUnFichier()
'renommer un fichier
Dim AncienNom As String
Dim NouveauNom As String
MonDossier = "C:\Temp\"
AncienNom = MonDossier & "xxxxxd01.slddrw"
NouveauNom = MonDossier & "55555d01.slddrw"
Name AncienNom As NouveauNom
End Sub
Pour info les fichiers ne se suivent pas (voir pieces jointes du repertoire)
Merci de votre aide