Sujet Précédent Sujet Suivant

Erreur d'exécution '9'

Fermé
Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015 - 25 nov. 2014 à 17:26
Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015 - 26 nov. 2014 à 10:41
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

Réponse 1 / 4
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
25 nov. 2014 à 17:31
Bonsoir Saticticien, bonsoir le forum,

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


0
Réponse 2 / 4
Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015
25 nov. 2014 à 17:53
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
Réponse 3 / 4
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
25 nov. 2014 à 19:06
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
Réponse 4 / 4
Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015
26 nov. 2014 à 10:41
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

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses