Autres Fin d'application, retour sur le bureau

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
13
Affichages
1 K
Réponses
7
Affichages
2 K
Compte Supprimé 979
C
Retour