OVH Cloud OVH Cloud

Code d'erreur 9

3 réponses
Avatar
Polio2004
Bonjour au groupe,
Si des spécialistes peuvent m'aider, j'ai :
"Erreur d'exécution 9. L'indice n'appartient pas à la sélection"

Voici le jeux d'instructions:
--------------------------------------------
Workbooks.Open FileName:=ListeName
Workbooks(FileName).Worksheets(SheetName).UsedRange.Copy
---------------------------------------------
Mon fichier est bien ouvert, pas d'erreur. Elle se produit sur la 2ième
instruction lorsque je veux copier toutes les cellules de la feuille
Toutes les variables FileName, ListeName, SheetName sont bien initialisées.
Merci de votre aide.

3 réponses

Avatar
Polio2004
J'ai toujours la même erreur après avoir remplacer FileName par ListeName.
La feuille SheetName est bien présente.

"MichDenis" a écrit dans le message de news:

Workbooks(FileName).Worksheets(SheetName).UsedRange.Copy
Remplace FileName par ListeName

Vérifies aussi que le nom de la feuille représentée par "sheetName"
existe réellement dans ton classeur.


"Polio2004" a écrit dans le message de news:
%
Bonjour au groupe,
Si des spécialistes peuvent m'aider, j'ai :
"Erreur d'exécution 9. L'indice n'appartient pas à la sélection"

Voici le jeux d'instructions:
--------------------------------------------
Workbooks.Open FileName:=ListeName
Workbooks(FileName).Worksheets(SheetName).UsedRange.Copy
---------------------------------------------
Mon fichier est bien ouvert, pas d'erreur. Elle se produit sur la 2ième
instruction lorsque je veux copier toutes les cellules de la feuille
Toutes les variables FileName, ListeName, SheetName sont bien
initialisées.
Merci de votre aide.





Avatar
MichDenis
Une erreur de type 9 refère à un objet qui est soit mal identifié
ou qui est inexistant.


Workbooks(ListeName).Worksheets(SheetName).UsedRange.Copy

Si le classeur "ListeName" représente vraiment le nom et l'extension
d'un fichier ouvert et que SheetName représente bien le nom d'un
onglet du meme fichier que le fichier ListeName, il n'y a aucune
raison que ta ligne de code se plante ...



"Polio2004" a écrit dans le message de news:

J'ai toujours la même erreur après avoir remplacer FileName par ListeName.
La feuille SheetName est bien présente.

"MichDenis" a écrit dans le message de news:

Workbooks(FileName).Worksheets(SheetName).UsedRange.Copy
Remplace FileName par ListeName

Vérifies aussi que le nom de la feuille représentée par "sheetName"
existe réellement dans ton classeur.


"Polio2004" a écrit dans le message de news:
%
Bonjour au groupe,
Si des spécialistes peuvent m'aider, j'ai :
"Erreur d'exécution 9. L'indice n'appartient pas à la sélection"

Voici le jeux d'instructions:
--------------------------------------------
Workbooks.Open FileName:=ListeName
Workbooks(FileName).Worksheets(SheetName).UsedRange.Copy
---------------------------------------------
Mon fichier est bien ouvert, pas d'erreur. Elle se produit sur la 2ième
instruction lorsque je veux copier toutes les cellules de la feuille
Toutes les variables FileName, ListeName, SheetName sont bien
initialisées.
Merci de votre aide.





Avatar
joseph 17
Bonjour Polio2004,
Après avoir ouvert ton classeur, peut-être faut-il que tu l'actives, ainsi
que l'onglet, avant d'y faire référence.
Joseph 17

"Polio2004" a écrit dans le message de news:
%
Bonjour au groupe,
Si des spécialistes peuvent m'aider, j'ai :
"Erreur d'exécution 9. L'indice n'appartient pas à la sélection"

Voici le jeux d'instructions:
--------------------------------------------
Workbooks.Open FileName:=ListeName
Workbooks(FileName).Worksheets(SheetName).UsedRange.Copy
---------------------------------------------
Mon fichier est bien ouvert, pas d'erreur. Elle se produit sur la 2ième
instruction lorsque je veux copier toutes les cellules de la feuille
Toutes les variables FileName, ListeName, SheetName sont bien
initialisées.
Merci de votre aide.