Rapport de message :*
 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres

Titre du sujet : Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
par Mytå le 03/07/2008 23:59:02

Salut le forum

Le plus simple aurait été de mettre un fichier exemple.
essaye cette procédure elle fonction pour moi.
Option Explicit
Public RunWhen As Variant
Public Time_opening As Date

Sub LanceMessage()
'Départ du processus
RunWhen = TimeValue(Now + TimeSerial(0, 0, 15))
Time_opening = "23:59:59"
Application.OnTime RunWhen, "'Fermeture """ & Time_opening & """'"

End Sub

Sub StopMessage()
'Arrêt du processus
On Error Resume Next
Application.OnTime RunWhen, "'Fermeture """ & Time_opening & """'", , False
End Sub

Sub Fermeture(Time_opening As Date)
MsgBox Time_opening
Call LanceMessage
End Sub
Mytå