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

Résolu
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   -  
 moise -
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
moise
 

merci pour intervention et pour creer une fichier xlsx?

0