Bouton "QUITTER EXCEL"

[SAMANTHA]

Bonjour tous !

Pouvez vous m'aider !

Je voudrais créer deux bouton de commande "Quitter" sur mon fichier Excel.

Tout est dit dans mon fichier joint zippé !


Merci à tous !!!!!!


Sam

 

[Lecardip]

Salut,
ça pourrait ressembler à ça ...(Fichier joint)
@+
Pascal

 

[SAMANTHA]

Désolé... Je ne vois pas de fichier joint à ta réponse !?!?!?!?

Sam.

 

[Denis]

Bonjour Samantha et le Forum

tu peux essayer ceci, il y a un bug seulement quand tu répond annuler à la question : ce classeur existe déjà, voulez-vous le remplacer
le reste à priori ça marche

Private Sub CommandButton1_Click()
ActiveWorkbook.Close SaveChanges:=False
End Sub

Private Sub CommandButton2_Click()
Dim Name
Do
Name = Application.GetSaveAsFilename
Loop Until Name <> False
ActiveWorkbook.SaveAs Filename:=Name
ActiveWorkbook.Close
End Sub

Bonne continuation et @+
Denis

 

[Lecardip]

Re: Bouton

Pardon je l'avais envoyé en .xls...!

 

[SAMANTHA]

Milles merci à vous deux !!!!!!

Ca fonctionne farfaitement bien .

Merci encore et bonne fin de journée à vous !

Sam