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
 moise - 31 juil. 2023 à 20:03
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
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

merci pour intervention et pour creer une fichier xlsx?

0