Bouton pour enregistrer et quitter en 1 clic

[jofdm]

Bonjour,
Je souhaiterais créer un bouton qui, en un clic, me permettrait d'enregistrer mon fichier et de le fermer.
J'ai jeté un oeil du côté des ApplicationDialogs mais je n'ai trouvé que la commande pour le Save As et rien pour la fermeture.
Si vous avez une idée, je suis preneur.
Merci d'avance pour votre aide

 

[wilfried_42]

Re : Bouton pour enregistrer et quitter en 1 clic

Bonjour

Sub fermer()

Thisworkbook.save
application.quit

End sub

Macro à lier à un bouton

 

[jofdm]

Re : Bouton pour enregistrer et quitter en 1 clic

Merci beaucoup !

 

[JCGL]

Re : Bouton pour enregistrer et quitter en 1 clic

Bonsoir à tous,

As-tu essayé avec :

ThisWorkbook.Close

APRES ton SaveAs

A+

Edition : Salut Wil : il me semble que tu fermes XL, peut-être pas judicieux...
A+ mon ami

 

[RENAUDER]

Re : Bouton pour enregistrer et quitter en 1 clic

Bonjour,
Je pense que cela doit t'aller
Enregistre et ferme le classeur
ActiveWorkbook.Close savechanges:=True