Get Open Filename - variable

Bonjour,

Voici le début d'une très longue macro où je veux mettre le nom du fichier choisi et ouvert en tant que variable.

TheFile = Application.GetOpenFilename("Excel Files(*.xls*),*.xls*")

If TheFile = False Then

Exit Sub

End If

Set WB = Workbooks.Open(TheFile)

Windows(TheFile).Activate

Mais quand je veux activer ce fichier et cette variable plus tard j'ai erreur d'execution 9 "L'indice n'appartient pas à la sélection".

En revanche, quand je mets la souris sur ma variable TheFIle je vois bien le chemin du fichier....

En plus, si je remplace ma variable par un nom de fichier et j'ouvre ce fichier ma macro marche sans souci... donc il y a vraiment une erreur dans la définition de cette variable; Des idées pourquoi?

Merci

Bonjour

A la place de

Windows(TheFile).Activate

utilises

Windows(WB.Name).Activate

Le 1er contient le chemin + le nom du fichier et il ne faut que le nom du fichier

un grand Meeeeeeeeeeeeeeeeeeeeeeerciiiiiiiiiiiiiiii