Salut Christophe
Une solution avec un timer.
A mettre dans le Private Module ThisWorkBook
Private Sub Workbook_Open()
Timming
End Sub
A mettre dans un module standard
Sub Timming()
Application.OnTime Now + TimeValue("00:15:00"), "Alert1"
End Sub
Sub Alert1()
MsgBox "veuillez sauvez et quitter l'application"
Application.OnTime Now + TimeValue("00:00:10"), "QUIT"
End Sub
Sub QUIT()
ThisWorkbook.Close True
End Sub
Timming est ici réglé sur 15 Minutes
Une alerte avec un message apparaitra et laissera encore 15 secondes
Ensuite le classeur sera sauvé et fermé...
Si c'est ce que tu veux ? Sinon on peut s'arrêter juste au message Alert1...
Bonne Nuit
@+Thierry