Re : Renommer titre et contenu de fichiers W
Une autre macro qui me donne la liste de mes fichiers :
Que j'ai adapté pour avoir la liste des names dans la colonne A, mais je cherche toujours à pouvoir mettre les 3 chiffres à changer(ou le old name) dans la colonne B et le new name dans la colonne C
Sub ListeFichiers_rech()
'CbernardT
https://www.excel-downloads.com/thr...s-de-fichiers-dun-rep-automatiquement.126880/
'Application.Goto Reference:="zae"
'Selection.ClearContents
Range("A1").Select
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
'Chemin = ThisWorkbook.Path
Chemin = ActiveSheet.Range("A1").Value 'Sheets("paramètrage").Range("b5").Value
'Chemin = "c:\"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
Range("a2").Select
I = 2
'Stop
For Each Fichier In Dossier.Files
'Cells(I, 1) = Fichier.Name ' Nom du fichier
'Cells(I, 2) = Fichier.DateCreated ' Date dernière modification
Cells(I, 1).Formula = Fichier.Name
I = I + 1
Next
End Sub