Bonjour !

Je souhaite utiliser une macro Excel pour renommer une série de fichiers pdf. Dans la colonne A se trouvent les noms d'origine et dans la colonne B les noms que je souhaite donner aux fichiers. Je suis toute débutante en VBA et j'ai combiné plusieurs programmes trouvés sur des forums pour arriver au résultat suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub macro2()
 
 Sheets(Renommer).Select
    Dim derlign As Long
    Dim k As Long
    derlign = Range("A2:s2", "A5:s5").End(xlDown).Row
 
    For k = 2 To derlign
 
    Dim AncienNom As String, NouveauNom As String
    AncienNom = "Users/Coline/Desktop/renommage de fichiers pdf/LOAD/" & Range("A" & k)
    NouveauNom = "Users/Coline/Desktop/renommage de fichiers pdf/LOAD/" & Range("B" & k)
    On Error Resume Next
    Name AncienNom As NouveauNom
    If Err = 75 Then Exit Sub
    Next k
End Sub
Lorsque je lance le programme, l'erreur d'exécution 9 : l'indice est en dehors des dimensions du tableau apparaît. Après plusieurs tests je ne trouve pas ce qui provoque ce message d'erreur.

Merci d'avance pour votre aide