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å
|