Discussion :

[Qwerty111]

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 ...

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Qwerty111]

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