Macro "Quitter + Enregistrer"

[lapou]

Hello everybody !!!

J'aimerais que le bouton que j'aurais créé (un simple rectangle) soit affecté à une macro qui enregistre et ferme le document actif.
Cependant je ne sais pas quelle est la macro à créé ;-)

Merci pour votre aide à tous

Tchao

 

[Bulis]

Salut lapou

Fais un essai avec cette macro

Sub QUITTER()

Application.Quit
Workbooks(ActiveWorkbook.Name).Close SaveChanges:=False

End Sub


Bulis

 

[lapou]

ça me ferme tous les fichiers excel sans enregistrer !!!

je dois sans doute modifier un truc ds celle-ci pour enregistrer et fermer que le document où la macro se situe mais koi stp ?

Merci

 

[effeZERO]

Bonjour Lapou, re-bonjour Bulis, le forum,
Je ne suis pas un pro en code mais je pense qu'à la ligne :
Workbooks(ActiveWorkbook.Name).Close SaveChanges:=False
il faut mettre TRUE à la place de FALSE, si je ne me trompe pas...
@+ et bonne soirée

 

[lapou]

Effectivemment ça va bcp mieux comme cela pour l'enregistrement mais par contre serait-il possible que cela ferme uniquement le document sur lequel le bouton lançant la macro est situé ?

Je sais je suis un peu chiant mais vous êtes tellement fort ;-)

Tchao

 

[Huahailu]

Bonjour Lapou, Bulis, effeZERO et le forum,

Le plus simple ne serait-il pas ceci:

Private Sub CommandButton1_Click()
ThisWorkbook.Close
End Sub

Excel te demande si tu veux sauver avant de fermer le classeur actif.

Bonne journée à tous,
@+
Pascal

 

[lapou]

Re: Macro

Ben regarde mon souci ;-)

En résumé je souhaite que mon rectangle, lorsque je clique dessus, enregistre et ferme le fichier en cours ss rien demandé ;-)

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !!!

 

[Huahailu]

Re: Macro

Salut Lapou et le forum

Regarde le fichier et dis moi si cela convient.

(Désolé pour le "commandbutton1", mais je pensais que tu utilisais un contrôle)

@+
Pascal

 

[lapou]

merci beaucoupppppppppppppppppppppppp

Yeahhhhhhhhhhhhhhhhhhhhh !!!