Visual Basic : execution d'une macro

Bonjour,

j'ai un petit soucis sous VBS. Voila le problème, j'exécute dans ma macro un code du type

Workbooks("book1").Activate
...Une série d'instruction...
Workbooks("book2").Activate
...Une série d'instruction...
Workbooks("book1").Activate
...Une série d'instruction...

Bref, un code tout ce qu'il y a de plus con...

Le problème vient d'une option parfois activée chez certains utilisateurs (ouvrir un dossier puis : outils\options des dossiers\affichage\Masquer les extensions des fichiers dont le type est connu)

Selon qu'elle est cochée ou pas, je dois utiliser ce code:
Workbooks("book1").Activate
ou celui-ci
Workbooks("book1.XLS").Activate

Bref, c'est tout con, mais ça casse mon code...

Au début, je me disais que j'allais simplement utiliser une instructon du type:
If ActiveWindow is Windows("book1") then
...La série d'instruction complete avec les noms de workbook sans .xls...
ElseIf ActiveWindow is Windows("book1.xls") then
...La série d'instruction complete avec les noms de workbook avec .xls...

Seulement voila, ca aussi ca foire... Du coup, quelqu'un aurait-il une idée pour pallier a ce petit problème. Il doit exister une solution toute simple mais ça fait qqs jours que je suis sous cette macro et la j'en peux plus de me casser la tete sur un truc si c*n...

Merci a tous.

Jondo