Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Problème fermeture fichier sans sauvegarder

marie3107

XLDnaute Nouveau
Bonjour,

J'ai créé une macro qui me permet de sortir de mon fichier sans proposer de le sauvegarder :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Fermeture du classeur sans sauvegarde
ActiveWorkbook.Close Savechanges:=False
Application.Quit
End Sub

Or, dès que je ferme mon fichier (sans sauvegarde donc), le fichier Excel ne se ferme pas correctement, il reste un fond de fichier tout gris. Après plusieurs manip, j'ai l'impression que cela provient de la macro ActiveWorkbook.Close Savechanges:=False

Auriez-vous une solution SVP ?

Merci !!
 

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour marie3107

Essai avec ce code :
VB:
 Private Sub Workbook_BeforeClose(Cancel As Boolean) 
ActiveWorkbook.Close 0
Application.Quit
End Sub

P.s : Sinon, ton code fonctionne de la même façon chez moi (XL 2010)
Bonne après-midi à toutes & à tous
@+ Eric c
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour marie3107, Eric C,

Dans ThisWorkbook :
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub
A+
 

Discussions similaires

Réponses
10
Affichages
191
Réponses
2
Affichages
206
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…