XL 2013 Fermeture fichier automatique (résolu)

Bonjour le forum,

À l'ouverture du fichier j'ai un timer pour que le fichier se ferme automatiquement après 60 minutes (j'ai mis une minute pour les besoins de la cause). Lorsque j'appelle Workbook_BeforeClose j'ai un message m'avisant que ne le trouve pas ? Pourquoi ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("0:01:00"), "Workbook_BeforeClose"
End Sub

Merci