Autres Fin d'application, retour sur le bureau

FOUQUET Yves

XLDnaute Occasionnel
bonjour,

Je lance un tableur Excel avec Macros qui ouvre un menu de départ, à partir d'un icone du bureau.
Avec le bouton "QUITTER" je ressors de mon application. Mais Excel reste ouvert...
Je voudrais que Excel se ferme, que l'on retourne sur le bureau quand on quitte l'application...
Voilà le code de mon bouton "QUITTER"

VB:
Private Sub CommandButton2_Click()   '-- Bouton QUITTER
Workbooks("Prog001.xlsm").Close SaveChanges:=False  '----fermer Classeur -----
Unload Me
CommandButton1.Enabled = False
On Error Resume Next
Application.Quit
End Sub

Merci de votre aide
 
Solution
Bonjour
A te lire, je conclus que tu veux quitter sans sauvegarder
Inutile d'utiliser alors la méthode Close
passe directement à l'abandon en disant qu'il n'y a rien à sauvegarder.
Ainsi


Code:
ActiveWorkbook.Saved = True
Application.Quit

jmfmarques

XLDnaute Accro
Bonjour
A te lire, je conclus que tu veux quitter sans sauvegarder
Inutile d'utiliser alors la méthode Close
passe directement à l'abandon en disant qu'il n'y a rien à sauvegarder.
Ainsi


Code:
ActiveWorkbook.Saved = True
Application.Quit
 

Discussions similaires

Réponses
13
Affichages
1 K

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO