Erreur d'exécution '9'
Statisticien
Messages postés
26
Statut
Membre
-
Statisticien Messages postés 26 Statut Membre -
Statisticien Messages postés 26 Statut Membre -
Bonjour,
Depuis tout à l'heure que j'essaie d'importer des données à partir d'un fichier excel fermé et sans succès.
Je tape le code suivant :
Sub credoc()
Workbooks.Open Filename:= _
"d:\emplacement\Classeur2.xls"
ThisWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = Worksheets("Feuil1").Range("A91:A113").Value
ActiveWorkbook.Close ' pour fermer le fichier '
End Sub
je reçois comme erreur : l'indice n'appartient pas à la selection. Pouvez-vous m'aidez ? et merci d'avance.
Depuis tout à l'heure que j'essaie d'importer des données à partir d'un fichier excel fermé et sans succès.
Je tape le code suivant :
Sub credoc()
Workbooks.Open Filename:= _
"d:\emplacement\Classeur2.xls"
ThisWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = Worksheets("Feuil1").Range("A91:A113").Value
ActiveWorkbook.Close ' pour fermer le fichier '
End Sub
je reçois comme erreur : l'indice n'appartient pas à la selection. Pouvez-vous m'aidez ? et merci d'avance.
A voir également:
- Erreur d'exécution '9'
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- J'aime par erreur facebook notification - Forum Facebook
4 réponses
Bonsoir Saticticien, bonsoir le forum,
peut-être comme ça :
peut-être comme ça :
ThisWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = ActiveWorkbook.Worksheets("Feuil1").Range("A91:A113").Value
Je te remercie pour ta réponse, mais le problème persiste toujours. Le process se bloque au niveau de la ligne :
ThisWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = ActiveWorkbook.Worksheets("Feuil1").Range("A91:A113").Value
et on me dit la même erreur : erreur d'exécution '9' l'indice n'appartient pas à la selection.
Pouvez-vous m'aider ? je vous remercie.
ThisWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = ActiveWorkbook.Worksheets("Feuil1").Range("A91:A113").Value
et on me dit la même erreur : erreur d'exécution '9' l'indice n'appartient pas à la selection.
Pouvez-vous m'aider ? je vous remercie.
Bonsoir Satisticien, bonsoir le forum,
Soit c'est le contraire :
soit cette erreur 9 signifie que l'onglet que tu mentionnes (dans l'un ou l'autre des fichiers) n'existe pas. Vérifie l'orthographe au caractère près des noms des onglets. L'idéal est de double-cliquer dans l'onglet, en bas, faire un copier et valider. Ensuite dans le code au lieu de réécrire ce nom, tu le colles...
Soit c'est le contraire :
ActiveWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = ThisWorkbook.Worksheets("Feuil1").Range("A91:A113").Value
soit cette erreur 9 signifie que l'onglet que tu mentionnes (dans l'un ou l'autre des fichiers) n'existe pas. Vérifie l'orthographe au caractère près des noms des onglets. L'idéal est de double-cliquer dans l'onglet, en bas, faire un copier et valider. Ensuite dans le code au lieu de réécrire ce nom, tu le colles...
