Défiler les windows

Bonjour, c'est encore moi qui squatte le forum :aie:

J'aurais besoin de faire défiler les fenêtre, pour tester leur noms, et les fermer selon condition.

Par exemple :

Code:

---

1 2 3 4 5 6

If activeWorkBook.name <> NomFichierStrt AND <> "Programme.xls" then with ActiveWorkbook .save .close Wend end if

---

sauf que là, dès que je vais tomber sur un activeWorkbook qu'il ne faut pas fermer, je vais être bloqué, et je ne puorrait pas tester le nom des autres.

Ps : On n'a pas le droit d'afficher d'avatar ? J'ai un portrait maintenant, mais pas d'avatar ...

Bonjour,
faire une boucle sur tout les classeurs ouvert et tester le nom etc..

Code:

---

1 2 3

For e = 1 To Workbooks.Count if Workbooks(e).Name..... Next e

---

A+

D'accord, merci.
C'était tout bête en fait.
Je me tracassait pour chercher un moyen de faire des tests sur windows, mais workbook marche très bien.

Merci