Sub myFunction() 'Traitements périodiques ici End Sub Sub Application_OnStart() Application("derniereExecution") = Time() End Sub Sub Session_OnStart() If DateDiff("n", Application("derniereExecution"), Time()) > 15 Then Call myFunction() End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub myFunction() 'Traitements périodiques ici End Sub Sub Application_OnStart() Application("derniereExecution") = Time() End Sub Sub Session_OnStart() d = Application("derniereExecution") If (_ DateDiff("n", d, Time()) > 15 Or _ ( _ DateDiff("n", d, Time()) < 0 And _ DateDiff("n", d, Time()) > (-1440 + 15) _ ) _ ) Then Call myFunction() End If End Sub