XL 2016 Boite de dialogue fermeture fichier

[Chessnocoma]

Bonjour le fil,

Je travail actuellement sur un fichier et je souhaites que lorsque l'utilisateur change de fenêtre, une fenêtre de dialogue lui demande si il veut fermer et enregistrer le classeur ?

Je ne suis pas certain que cela soit possible.

Vous remerciant,

Jessy Achille

 

[Robert]

Bonjour Jessy, bonjour le forum,

Code à placer dans le composant ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If MsgBox("Voulez-vous enregistrer et fermer le classeur ?", vbYesNo, "FERMETURE") = vbYes Then ActiveWorkbook.Close True
End Sub

[Édition]
Oops ! J'avais mal lu. Le code proposé est au changement d'onglet, pas de fenêtre. Convient-il ?