Bonjour,
J'ai utilisé la macro suivante pour extraire le nom de chaque fichier dans un dossier:
Sub List_File()
Dim Rep As String, Fichier As String
Dim i As Integer
Rep = "C:\Users\dossier\"
File = Dir(Rep)
Do While File <> ""
i = i + 1
Sheets("Sheet1").Range("A" & i + 8) = File
File = Dir
Loop
End Sub
A partir de ces noms de fichiers extrait dans la colonne A, je procède à des "encodages" sur plusieurs colonnes, qui donne un "nom finale" de fichier dans la colonne K.
Mon objectif est ensuite de renommer les fichiers de la colonne A avec les noms de la colonne K. Par exemple
Cellule A2: Pomme.xlsx - Cellule K2: Pomme-Janvier-2018-B312.xlsx.
Pouvez-vous svp m'aider?
Merci!