Variable workbook : l'indice n'appartient pas à la sélection

Résolu/Fermé
Mouftie
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
- 5 avril 2017 à 12:05
Mouftie
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
- 6 avril 2017 à 11:54
Bonjour,
Bonjour,

je voudrais travailler sur des fichiers, dont les noms se trouvent dans une table (TbFic)

J'ai écrit :

Sub test()
Dim Fc As String, WbFc As Workbook
Fc = Sheets("Données").Range("B4").Value
Set WbFc = Workbooks(Fc)
WbFc.Activate
End Sub


j'ai un message d'erreur "l'indice n'appartient pas à la sélection."

NB. la cellule B4 est de la forme "NomFichier.xlsm"

Pouvez-vous m'aider, svp. merci


2 réponses

Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 754
5 avril 2017 à 23:17
Bonjour,

Le message d'erreur est dû au fait que le fichier Fc ne fait pas partie de la collection des fichiers qui sont ouverts !

Pour Ouvrir un fichier il faut employer :
Set WbFc = Workbooks.Open(CheminCompletDuFichier)

0
Mouftie
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
15
6 avril 2017 à 11:54
Merci pour votre réponse.

Effectivement, quand j'ai commencé à écrire mon code, le fichier était ouvert, mais après je l'ai fermé et j'ai oublié qu'il était fermé.

Je suis restée un bon moment sans comprendre. C'est couillon !
0