XL 2013 Fermeture fichier automatique (résolu)

[Cougar]

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

 

[Robert]

Bonjour Cougar, bonjour le forum,

Peut-être comme ça :
• dans le composant ThisWorkbook :

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("1:00:00"), "ferme"
End Sub

Dans un module standard (Module1 par exemple) la procédure ferme :

Sub ferme()
ThisWorkbook.Close True
End Sub

 

[Cougar]

Bonjour Robert, le forum,

Le tout fonctionne.

Merci