Bonjour,

J'ai dans mon fichier excel, une liste de nom de fichiers, que j'ai extrait d'un répertoire en colonne A. En colonne B, j'ai effectué un traitement de ces noms.

Maintenant, je voudrai utiliser les nouveaux noms de la colonne B, pour renommer directement les fichiers dans le répertoire.

J'ai une piste je pense :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub en_attendant3()
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = fso.GetFolder("C:\Users\tliberti\Desktop\renommage de fichiers pdf\LOAD\")
Set fichiers = repertoire.Files
For Each f In fichiers
f.Name = Cells(Application.WorksheetFunction.Match(f.Name, Range("a:a"), 0), 2).Value
Next
End Sub
J'ai réussi à faire marcher cette macro hier. Aujourd'hui plus moyen et je ne sais pas pourquoi, je n'ai rien changé !

Merci.