Fermer classeurs

[Géraldine]

Salut,

J'ai un problème pour fermer mes classeurs

Voilà j'ai des classeurs ouverts et j'aimerais les fermer par l'intermédiaire d'un bouton (qui se trouve dans ces classeurs) mais sauf un qui se nomme Budget.xls (qui doit rester ouvert)

J'arrive pas à traduire ce texte en code

si les noms des classeurs sont différents du classeur budget.xls alors fermer les classeurs sinon rien

Merci

 

[Ti]

Voici une procédure qui fermera tous les fichiers sauf budget.xls

Sub Ferme_Fichiers()
Dim Wb
For Each Wb In Workbooks
'cette ligne pour sauvegarder en quittant
If Wb.Name <> "budget.xls" Then Wb.Close SaveChanges:=True
'celle-là pour ne pas sauvegarder en quittant
'If Wb.Name <> "budget.xls" Then Wb.Close SaveChanges:=False
Next
End Sub

 

[Robert]

Même macro que TI

Mais au lien de Sub ferme_fichier() mettez Sub auto_close()
cela fermera automatiquement tous vous classeurs en quittant

Sub auto_close()
Dim Wb
For Each Wb In Workbooks
'cette ligne pour sauvegarder en quittant
If Wb.Name <> "budget.xls" Then Wb.Close SaveChanges:=True
'celle-là pour ne pas sauvegarder en quittant
'If Wb.Name <> "budget.xls" Then Wb.Close SaveChanges:=False
Next
End Sub