Renomer des fichiers en masse

[centurion]

Bonjour les amis,

J'aimerais renommer des fichiers qui sont dans ce répertoire (800 fichiers):
C:\AUTOCADTRAVAIL
J'ai un fichier Excel qui s'appelle : autocadtravail_renomer.xlsx
Dans l'onglet feuille 1 :
Dans la colonne A, j'ai mis la liste des fichiers qui sont à renommer.
Dans la colonne B, les nouveaux noms chacun en face de l'ancien,
J'aimerais faire une macro qui pourrait renommer automatiquement tous les fichiers à partir des données présentes dans le fichier Excel.

En vous remerciant pour votre aide
Cordialement
Centurion

 

[sousou]

bonsoir
Voci une procédure qui devrait te convenir
ici je travail sur le répertoire courant: A modifier chemin="C:\AUTOCADTRAVAIL\"

A tester avant sur un répertoire bidon ou en faisant une copie au préalable

Sub renomme()
With Sheets(1)
chemin = ThisWorkbook.Path & "/"
Set fso = CreateObject("scripting.filesystemobject")
Set rep = fso.getfolder(chemin)
Set fichiers = rep.Files
For Each i In fichiers
Set f = .Columns(1).Find(i.Name)
If Not f Is Nothing Then
nom = f.Offset(0, 1).Value
i.Name = nom
End If
Next
End With
End Sub

 

[centurion]

bonsoir
ça fonctionne très bien
merci beaucoup !