Re : Renommer un grand nombre de fichier
J'avais un truc qui ressemblait à ça:
Sub Renommer()
Dim plage As Range, dossier$, chemin$, fichier$
Dim ancien$, nouveau As Variant
Set plage = Sheets("Feuil1").[A:B] 'feuille à adapter
dossier = "MesPdf" 'nom à adapter
chemin = ThisWorkbook.Path...