Bonjour à tous,
Je travaille sur une feuille Excel en plein écran, sans les titres ni le quadrillage et enfin sans aucun barre d'outils.
Lorsque je quitte mon fichier, je ne souhaite pas enregistrer les modifications et remettre Excel dans l'état où il était avant que j'ouvre mon fichier.
J'ai donc un bouton Quitter qui lance la macro suivante:
Sub quitter()
Application.DisplayFullScreen = False
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.Quit
End Sub
En fait le problème, c'est que Excel plante au niveau de Activeworkbook.close et réouvre Excel (Erreur, récupération du travail et blablabla...)
Edit: Excel plante en fait dès que je veux sauvegarder et même sans faire de modif. C'est bizarre.
Je ne vois pas comment résoudre mes soucis.
Merci pour vos éclairages toujours précieux et utiles.
Xav
Je travaille sur une feuille Excel en plein écran, sans les titres ni le quadrillage et enfin sans aucun barre d'outils.
Lorsque je quitte mon fichier, je ne souhaite pas enregistrer les modifications et remettre Excel dans l'état où il était avant que j'ouvre mon fichier.
J'ai donc un bouton Quitter qui lance la macro suivante:
Sub quitter()
Application.DisplayFullScreen = False
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.Quit
End Sub
En fait le problème, c'est que Excel plante au niveau de Activeworkbook.close et réouvre Excel (Erreur, récupération du travail et blablabla...)
Edit: Excel plante en fait dès que je veux sauvegarder et même sans faire de modif. C'est bizarre.
Je ne vois pas comment résoudre mes soucis.
Merci pour vos éclairages toujours précieux et utiles.
Xav
Dernière édition: