Bonjour, c'est encore moi qui squatte le forum

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

Par exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ...