Fermer tous les fichier xls ouvert

Bonjour,

je cherche un code qui lors de l'ouverture de mon fichier et l'activation de la macro, détecterai si il y a d'autres fichier.xls ouvert et dans se cas, les fermerai après les avoir enregistré !

Je trouve uniquement sur le net des codes qui recherche un fichier spécifique et le ferme.

Par avance grand merci.

Salut Cyril,

Voici un code qui devrait répondre à ton attente :

Option Explicit
Private Sub xxxx()
Dim Wb As Workbook
  For Each Wb In Workbooks
  If Wb.Name = ThisWorkbook.Name Then GoTo Etiquette
  Wb.Save
  Wb.Close
Etiquette:
  Next Wb
End Sub

Cordialement.

Salut yvouille,

Je teste ça demain et je te dit

Impec, ça fonctionne super bien merci