Erreur d'exécution '9'

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.

4 réponses

  1. ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonsoir Saticticien, bonsoir le forum,

    peut-être comme ça :
    ThisWorkbook.Worksheets("spfin016credoc").Range("B134:B156").Value = ActiveWorkbook.Worksheets("Feuil1").Range("A91:A113").Value 


    0
  2. Statisticien Messages postés 26 Statut Membre
     
    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.
    0
  3. ThauTheme Messages postés 1564 Statut Membre 160
     
    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...

    0
  4. Statisticien Messages postés 26 Statut Membre
     
    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.
    0