Erreur d'exécution '9'
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.
4 réponses
-
Bonsoir Saticticien, bonsoir le forum,
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. -
Bonsoir Satisticien, bonsoir le forum,
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...
-
Bonjour ThauTheme,
je te remercie infiniment pour ton aide. Grâce à toi, j'ai peu résoudre un problème qui m'a irrité pendant des heures. Je te remercie encore une autre fois et à la prochaine.
