Autres Fin d'application, retour sur le bureau

[FOUQUET Yves]

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"

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

 

[jmfmarques]

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

ActiveWorkbook.Saved = True
Application.Quit

 

[FOUQUET Yves]

Parfait!
Non je ne sauve garde pas car il s'agit juste de fermer le module programme.
les données sont dans un autre tableur que je sauve à chaque sortie d'un module...
merci et bonne soirée.