Erreur d'exécution '9'

Résolu/Fermé
LN123456789 Messages postés 2 Date d'inscription mercredi 13 novembre 2013 Statut Membre Dernière intervention 13 novembre 2013 - 13 nov. 2013 à 14:01
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 13 nov. 2013 à 15:23
Bonjour,

J'ai démarré une formation rapide sur Visual basique : En fait j'ai plusieurs fichiers Excel mensuels (pour le moment je travaille sur Octobre et Novembre 2013) et j'ai besoin de regrouper les résultats sur un seul tableau qui serait sur un fichier autre.
j'ai voulu créer des tableaux dynamiques à partir de plusieurs fichiers .. Impossible.
j'ai trouvé donc cette formation sur Synthèse Plusiserus classeurs et qui explique méthode sur VBA.

Voici ma séquence et je ne comprend pas l'apparition de ce message lors de l'exécution de la seconde ligne :
Erreur d'exécution '9' : L'indice n'appartient pas à la sélection

Sub Test1()
Workbooks.Open "D:\Consolidation\Bilan Prod Octobre 2013.xlsx"
Workbooks("D:\Consolidation\Bilan Prod Octobre 2013.xlsx").Close
End Sub

Merci pour votre aide car là je suis bloquée.
De plus j'ai enregistré ce fichier Visual Basique mais je ne le retrouve plus ...

2 réponses

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
13 nov. 2013 à 14:25
Bonjour,

c'est :

Sub Test1()
Workbooks.Open "D:\Consolidation\Bilan Prod Octobre 2013.xlsx"
Workbooks("Bilan Prod Octobre 2013.xlsx").Close
End Sub
0
LN123456789 Messages postés 2 Date d'inscription mercredi 13 novembre 2013 Statut Membre Dernière intervention 13 novembre 2013
13 nov. 2013 à 15:03
Merci infiniment ça a marché !!
Mais sur le cours il y avait bien le même circuit avec D:

Merci
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
13 nov. 2013 à 15:23
Il s'agit peut être d'une erreur. une fois le fichier ouvert, seul le nom est nécessaire.
Peux tu le mettre à résolu stp (en dessous du titre)
0