Microsoft 365 Problème fermeture fichier sans sauvegarder

[marie3107]

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]

Bonjour le forum
Bonjour marie3107

Essai avec ce code :

 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

 

[marie3107]

Je viens d'essayer la macro et malheureusement ça ne fonctionne toujours pas, le fenêtre grise de fond reste présente....

Bonne après-midi à vous aussi !

 

[Eric C]

Re le fil

C'est étrange car cela fonctionne sans problème de mon côté. A voir sur un autre PC. Excel peut être ?
@+ Eric c

 

[job75]

Bonjour marie3107, Eric C,

Dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

A+

 

[marie3107]

Bonjour marie3107, Eric C,

Dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

A+

Merci beaucoup job75, cette macro là solutionne mon problème !

Bonne journée à vous !