Erreur d'exécution 9 : L'indice est en dehors des dimension du tableau

Version imprimable

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:

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 :)

bonjour
1- mettre ton code entre balise (#) pour faciliter la lecture
2- je crois que l'erreur vient de la détermination de la dernière ligne non vide que je trouve bizarre
(moi aussi autodidacte et peut être que c'est correcte ce que tu as écris à savoir :aie: )

Code:

derlign = Range("A2:s2", "A5:s5").End(xlDown).Row

je préfère et pour éviter tous risque déclarer l'onglet sujet de votre code
Code:

1 2 3 4 Dim Ws As Worksheet 'Attribue la référence objet à la variable 'La feuille est un Objet: la variable doit donc être précédée de l'instruction Set lors de l'attibution. Set Ws = Worksheets("Feuil2")
et puis déclarer la dernière ligne comme ce ci :
Code:

1 2 3 4 dim derlig as long derlig = ws.Range("A" & Rows.Count).End(xlUp).Row
pour tester la valeur de derlig vous pouvez récupérer cette valeur via message et la comparer avec vos données

j'espère que ça t'aide à avancer

Bonne continuation

29/06/2020, 16h53
Menhir

Citation:

Envoyé par ColineB

Code:

Sheets(Renommer).Select

D'où vient ce Renommer ?
Si c'est une variable, où (et comment) est-elle déclarée et initialisée ?
Si c'est un nom d'onglet, il manque les guillemets.

Merci BENNASR, cela me paraît effectivement mieux, mais je rencontre toujours le même message d'erreur lorsque je lance le programme corrigé comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub macro2()
Sheets(Renommer).Select
Dim derlign As Long
Dim k As Long
Dim Ws As Worksheet
'Attribue la référence objet à la variable
'La feuille est un Objet: la variable doit donc être précédée de l'instruction Set lors de l'attibution.
Set Ws = Worksheets("Feuil1")
 
Dim derlig As Long
derlign = Ws.Range("A" & Rows.Count).End(xlUp).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

29/06/2020, 18h22
ColineB

Citation:

Envoyé par Menhir

D'où vient ce Renommer ?
Si c'est une variable, où (et comment) est-elle déclarée et initialisée ?
Si c'est un nom d'onglet, il manque les guillemets.

Il s'agit du nom de mon fichier Excel dans lequel se trouvent les noms des fichiers.
Lorsque j'ai copié cette partie du code, le nom du fichier s'est mis automatiquement à cet endroit-là.
29/06/2020, 18h44
Menhir

Citation:

Envoyé par ColineB

Il s'agit du nom de mon fichier Excel dans lequel se trouvent les noms des fichiers.

Les objets Sheets ne référencent pas de fichiers mais des onglets (feuilles).

Citation:

Lorsque j'ai copié cette partie du code, le nom du fichier s'est mis automatiquement à cet endroit-là.

Il est peu probable que l'enregistrement automatique de macro ait généré une variable.
Donc, s'il a écrit cette ligne, c'est que Renommer est un nom de feuille (et non de fichier) et il l'a forcément mis entre guillemets.

Menhir le nom s'est bien mis tout seul (ce que j'ai effectivement trouvé bizarre). J'ai suivi ton conseil et je l'ai remplacé par "Feuil1" comme suit, et le programme n'affiche plus de message d'erreur mais il ne se passe rien du tout, les fichiers ne sont pas renommés.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub macro2()
Sheets("Feuil1").Select
Dim derlign As Long
Dim k As Long
Dim Ws As Worksheet
'Attribue la référence objet à la variable
'La feuille est un Objet: la variable doit donc être précédée de l'instruction Set lors de l'attibution.
Set Ws = Worksheets("Feuil1")
 
Dim derlig As Long
derlign = Ws.Range("A" & Rows.Count).End(xlUp).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

30/06/2020, 00h44
BENNASR

Ce que recommande Menhir (salut au passage) et de mettre le nom de l'onglet entre guillemets à savoir "Renommer" et non pas de remplacer par feuil1 :
Sheets("Renommer").select
30/06/2020, 09h08
Menhir

Citation:

Envoyé par ColineB

Menhir le nom s'est bien mis tout seul

Je le répète, si l'enregistrement automatique a mis un nom dans Sheets, c'était obligatoirement un nom d'onglet (et non de fichier) et il était encadré de guillemets.

Citation:

J'ai suivi ton conseil et je l'ai remplacé par "Feuil1" comme suit

La question me semble triviale mais je préfère la poser : est-ce bien dans Feuil1 que se trouvent tes noms de fichiers ?
Est-ce bien dans la colonne A ?

Citation:

il ne se passe rien du tout, les fichiers ne sont pas renommés.

Fais tourner ton programme en pas-à-pas en observant le contenu des variables, en particulier derlign et AncienNom.

On ne mets pas de déclaration de variable (Dim) dans une boucle.

Supprime ton On Error pour voir la nature d'éventuelles erreur.
Tu pourras éventuellement le remettre (ce que, personnellement, je déconseille fortement) lorsque le code sera fonctionnel.

Citation:

La question me semble triviale mais je préfère la poser : est-ce bien dans Feuil1 que se trouvent tes noms de fichiers ?
Est-ce bien dans la colonne A ?

Oui, la feuille qui contient les données s'appelle bien Feuil1, la colonna A est celle contenant les anciens noms et la B les nouveaux noms.

Citation:

Fais tourner ton programme en pas-à-pas en observant le contenu des variables, en particulier derlign et AncienNom.

On ne mets pas de déclaration de variable (Dim) dans une boucle.

Supprime ton On Error pour voir la nature d'éventuelles erreur.
Tu pourras éventuellement le remettre (ce que, personnellement, je déconseille fortement) lorsque le code sera fonctionnel.

J'ai enlevé OnError et il s'affiche Erreur d'exécution 76 : chemin d'accès introuvable.
Et je peux remplacer Dim par quoi dans la boucle?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub macro2() Sheets("Feuil1").Select Dim derlign As Long Dim k As Long Dim Ws As Worksheet 'Attribue la référence objet à la variable 'La feuille est un Objet: la variable doit donc être précédée de l'instruction Set lors de l'attibution. Set Ws = Worksheets("Feuil1") Dim derlig As Long derlign = Ws.Range("A" & Rows.Count).End(xlUp).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) Name AncienNom As NouveauNom If Err = 75 Then Exit Sub Next k End Sub

30/06/2020, 11h45
Menhir

Citation:

J'ai enlevé OnError et il s'affiche Erreur d'exécution 76 : chemin d'accès introuvable.

Quelle ligne de code est signalée par le débugage ?

Cette erreur indique que le chemin spécifié n'existe pas dans ton filesystem.

Citation:

Et je peux remplacer Dim par quoi dans la boucle?

On ne le remplace pas, on le met à l'extérieur de la boucle.
Les déclarations doivent toujours être placées en début de code, avant toute autre instruction.
30/06/2020, 11h51
pijaku

Bonjour,

Ne manquerait pas, en plus des remarques de Menhir (salutations), la lettre du lecteur?

Code:

AncienNom = "Users/Coline/Desktop/renommage de fichiers pdf/LOAD/" & Range("A" & k)

à remplacer par :

Code:

AncienNom = "C:\Users/Coline/Desktop/renommage de fichiers pdf/LOAD/" & Range("A" & k)

également vérifier les séparateurs /. Chez moi, dans un chemin, on utilise \, pas /

Donc :

Code:

AncienNom = "C:\Users\Coline\Desktop\renommage de fichiers pdf\LOAD\" & Range("A" & k)

Idem pour NouveauNom...

Le plus simple, pour être sur de ne pas se tromper sur le nom complet du "chemin" d'accès à un répertoire c'est :
> clic droit sur un des fichiers du répertoire / Propriétés,
> sélectionner puis copier l'emplacement,
> coller dans votre code en pensant à ajouter, si nécessaire, le dernier \

Voilà
30/06/2020, 12h03
Menhir

Citation:

Envoyé par pijaku

Ne manquerait pas, en plus des remarques de Menhir (salutations), la lettre du lecteur?

Quand j'ai vu les séparateurs "/", j'ai pensé qu'il s'agissait soit de MacOS soit de Linux et comme je connais mal ces deux systèmes, j'ai préféré m'abstenir concernant le lecteur ou la référence à la racine.
30/06/2020, 12h48
ColineB

Citation:

Quand j'ai vu les séparateurs "/", j'ai pensé qu'il s'agissait soit de MacOS soit de Linux et comme je connais mal ces deux systèmes, j'ai préféré m'abstenir concernant le lecteur ou la référence à la racine.

Franck et Menhir effectivement je suis sur MacOS, donc l'emplacement du fichier s'écrit bien comme cela.

Citation:

Quelle ligne de code est signalée par le débugage ?

Cette erreur indique que le chemin spécifié n'existe pas dans ton filesystem.

C'est cette ligne de code là qui est signalée :

Code:

Name AncienNom As NouveauNom
30/06/2020, 13h03
Menhir

Citation:

Envoyé par ColineB

Franck et Menhir effectivement je suis sur MacOS, donc l'emplacement du fichier s'écrit bien comme cela.

VBA semble penser le contraire.
Et il est têtu... :mouarf:

Es-tu sûre qu'il n'y aurait pas un caractère à ajouter en début de chemin pour indiquer qu'on part de la racine ?...
Je n'y connais pas grand chose en MacOS, mais, d'après le peu que je connais, un chemin absolu commence par un "/", ce qui n'est pas le cas dans ton code.
30/06/2020, 14h20
pijaku

A mon avis, ce n'est pas la fonction Name qui pose problème, mais bel et bien les chemins de tes fichiers.

@Menhir :plusser:

1- Les chemins, sous MacOs, ne commencent-ils pas par un /?
cf : https://forums.macg.co/threads/speci.../#post-5213421

Code:

AncienNom = "/Users/Coline/Desktop/renommage de fichiers pdf/LOAD/" & Range("A" & k)

2- Le bureau n'aurait-il pas un chemin d'accès spécifique?
cf : http://www.rondebruin.nl/mac/mac007.htm

3- Sinon...
Avec Excel 2011 il faut utiliser le séparateur :

Code:

"Macintosh HD:Users:Coline:Desktop:renommage de fichiers pdf:LOAD:" & Range("A" & k), fileformat:=53

Avec Mac Excel 2016 :

Code:

/Users/YourUserName/Desktop/renommage de fichiers pdf/LOAD/" & Range("A" & k)

De plus, il vaut toujours mieux indiquer la propriété utilisée pour le Range. Remplacer : Range("A" & k) par : Range("A" & k).Value
En espérant que dans la cellule Range("A" & k), il y ait bien le nom du fichier + extension...
02/07/2020, 22h13
Pierre Fauconnier

Salut

Citation:

Envoyé par pijaku

A mon avis, ce n'est pas la fonction Name qui pose problème[...]

Perso, je serais plus nuancé. A mon avis, Name utilise les api windows liées au filesystem, et cela génère beaucoup de soucis avec les Mac car la gestion des fichiers n'est pas du tout la même.

S'il existe un enregistreur de macro sur les Mac, je le lancerais pour une simple sauvegarde, histoire de voir comment le chemin du fichier est écrit, et j'essaierais d'en déduire la logique de construction du chemin en Mac. Puis je tenterais la chose avec la fonction Name, par exemple dans la fenêtre d'exécution, histoire de voir si le problème persiste...