Ajouter une exception lors de la fermeture de classeurs

Bonjour,

Voici la macro que je suis parvenu à dénicher pour fermer tous les classeurs excepté le classeur actif.

Sub FermeturedesClasseurs()

 Dim wb As Workbook
 For Each wb In Workbooks
  If Not wb Is ThisWorkbook Then
     wb.Close False
  End If
 Next
End Sub

Je souhaite à présent pouvoir optimiser le temps de réaction en chargeant le fichier contanant les macros qui seront appliqueés puis en cachant ce fichier. Le hic est que le fichier qui est caché se ferme aussi lors de l'exécution de cette macro.

Comment modifier ce code afin de conserver ouvert le fichier actif et le fichier caché ?

D'avance merci pour vos réponses.

Bonjour,

un

Sub FermeturedesClasseurs()

 Dim wb As Workbook
 For Each wb In Workbooks
  If Not wb Is ThisWorkbook and wb.Name <> "nom du classeur de macro" Then
     wb.Close False
  End If
 Next
End Sub

A essayer...

@ bientôt

LouReeD

Bonjour LouReeD,

Et cela fonctionne !

Merci besoucoup

mais de rien

@ bientôt

LouReeD