Fermeture de plusieurs fichiers

[Windfly]

Bonjour à tous,

A l'aide d'une macro, je voudrais fermer tous les autres fichiers excel ouvert autres que celui dont j'utilise.

J'ai essayé d'écrire ceci dans le VBA, mais la macro s'arrete juste après la fermeture du premier classeur sité.

(...)
Windows('Suivi_AMO_2005.xls').Close
Windows('Suivi_pmo_2005.xls').Close
Windows('Suivi2005_Electro.xls').Close

End Sub

Que faut-il que je modifie pour que ca marche correctement?

Merci d'avance à tous

Guillaume

 

[MichelXld]

bonjour Windfly

j'espere que cette macro pourra t'aider


Sub fermertureClasseurs()
Dim Wb As Workbook

For Each Wb In Workbooks
'fermeture sans sauvegarde
If Wb.Name <> ThisWorkbook.Name Then Wb.Close False
Next Wb
End Sub


bonne soiree
MichelXld

 

[Windfly]

Bonjour Michel

Cette macro marche très bien mais uniquement pour fermer 1 autre dossier ouvert. Il faut la relancer à chaque fois pour fermer les autres dossiers ouverts.
Mais c'est sympa quand même, je pourrais l'utiliser dans d'autres applications.

Slt

Guillaume