Fermer tous les classeurs ouverts

Bonjour chers tous

J'ai un classeur actif A et d'autres qui sont ouverts.

Je voudrais par Vba fermer tous les classeurs ouverts sauf "A"

merci

Salut KTM,

sans savoir comment tu comptes lancer la procédure...
Si tu veux fermer les fichiers SANS sauver les changements intervenus, mettre FALSE !!!

For Each sWBk In Workbooks
    If sWBk.Name <> "A.xlsm" Then sWBk.Close savechanges:=True
Next

A+

Merci !!