Fermeture classeur

Bonjour à tous,

voila je suis à la recherche d'un code qui me permettrait de fermer tous les classeurs ouvert commençant par "Stock", sans enregistrer les modifications...

Aprés avoir essayer moultes codes je n'ai pas trouver le st graal !!!

Pouvez vous m'aider svp ?

plzzz merci beaucoup d'avance

Bonsoir

A tester

Option Explicit

Sub test()
Dim Wb As Workbook

  For Each Wb In Workbooks
    If UCase(Left(Wb.Name, 5)) = "STOCK" Then Wb.Close savechanges:=False
  Next Wb
End Sub

Salut Barthe,

Normalement le code ci-dessous devrait répondre à ta demande :

Sub Refermer_Fichiers_Stock()
Dim Wb As Workbook

Application.DisplayAlerts = False
  For Each Wb In Workbooks
  If Left(Wb.Name, 5) = "Stock" Then Wb.Close
  Next Wb
  Application.DisplayAlerts = True
End Sub

Cordialement.

EDIT : Salut Banzaï