Titre du sujet : Re: Désactiver l'instruction application.ontime par Mytå le 15/07/2008 23:39:41
Salut le forum
Au début du code d'un module
Option Explicit
'Variable déclarer en Public pour conserver les valeurs
Public Time_Opening As Date
Public Apres40minutes As Date
et le code dans ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Arret du processus
On Error Resume Next
Application.OnTime TimeValue(Apres40minutes), "'Fermeture """ & Time_Opening & """'", , False
End Sub
Private Sub Workbook_Open()
Worksheets("Weekly").Select
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Compteur As Integer
'..... je vous passe les instructions qui n'ont aucun rapport
'workbook closed after 40'
'J'ai supprimer les deux Dim pour les déclarer en Public
Time_Opening = Format(Time, "HH:MM:SS") 'Init Time opening
Apres40minutes = Now + TimeValue("00:00:10")
Application.OnTime TimeValue(Apres40minutes), "'Fermeture """ & Time_Opening & """'" 'Syntaxe de Myta
'----- réinit other events -----------
Worksheets("Weekly").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Et sans passer par une cellule qui pourrait être problématique
Mytå
P.S. J'ai mis le temps à 10 secondes pour faire les tests,
remplacer TimeValue("00:00:10") par TimeValue("00:40:00")
|