fermeture fichier

Dim t# 'mémorisation

Private Sub Workbook_Open()
'fonctionne même si A1 n'est pas un nombre...
t = Now + Val(Replace(Feuil1.[A1].Text, ",", ".")) / 1440
Application.OnTime t, "ThisWorkbook.Fermer"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then Me.Save 'enregistrement automatique
Application.OnTime t, "ThisWorkbook.Fermer", , False
End Sub

Sub Fermer()
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub