Sub Renommer_Fichiers()
On Error GoTo err
'activer scripting runtime
Dim Chemin As String, i As Integer, DL As Integer
Dim AncienNom
Dim NouveauNom
Chemin = ThisWorkbook.Path & "\"
With Sheets("Feuil1")
DL = .Range("A32767").End(xlUp).Row
For i = 2 To DL
AncienNom = .Range("A" & i).Value & ".pdf"
NouveauNom = .Range("D" & i).Value & ".pdf"
Name AncienNom As Chemin & NouveauNom
Next i
End With
fin:
Exit Sub
err:
Select Case err.Number
Case 53: MsgBox "Le fichier est introuvable"
Case Else: MsgBox "Erreur inconnue"
End Select
Resume fin
End Sub