Fermeture classeur selon nom

[barth66]

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

 

[DoubleZero]

Re : Fermeture classeur selon nom

Bonjour, barth66, le Forum,

Peut-être ainsi :

Option Explicit
Sub Fermer_tous_fichiers_commençant_par_Stock()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "Stock*" Then
wb.Close SaveChanges:=False
End If
Next wb
End Sub

A bientôt

P. S. : Bisous à Papou-net

 

[Papou-net]

Re : Fermeture classeur selon nom

RE barth66,

Pourquoi as-tu créé un nouveau fil identique au précédent ?

As-tu testé ma solution ? Je t'affirme que chez moi elle fonctionne.

Bisous à 00.

 

[barth66]

Re : Fermeture classeur selon nom

Nickel merci beaucoup pr ton aide !!!

That's perfect !