Discussion :

[Kimy_Ire]

Bonjour,

J'aurais une question, plus de culture que de blocage.
Je souhaiterais savoir s'il est possible de lancer une tâche planifiée avec des arguments passés en paramètre ?
Par exemple : Application.OnTime Now + TimeValue("00:00:01"), "ma_proc(ma_variable)".

La solution de contournement "simple" est de mettre "ma_variable" en tant que variable globale, mais je n'aime pas trop ça...

Voila, merci pour vos retours !

Cordialement,
Kimy

[Theze]

Bonjour,

De la même façon que pour le "OnAction" d'un Shape.
Attention, il faut tripler les guillemets pour les arguments String, Double, Single, Date et Boolean. Pour les Integer, pas nécessaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
    Static I As Integer
    Dim Texte As String
 
    I = I + 1
    Texte = "Kimy_Ire n° "
 
    'avec 1 argument...
    'Application.OnTime Now + TimeValue("00:00:05"), "'MaMacroTest """ & I & "'"
 
    'avec 2 arguments...
    Application.OnTime Now + TimeValue("00:00:05"), "'MaMacroTest """ & I & """,""" & Texte & I & "'"
 
End Sub
 
Sub MaMacroTest(VarInt As Integer, VarStr As String)
 
    'pour arreter, un point d'arrêt !
    MsgBox VarInt & vbCrLf & VarStr
    Test
 
End Sub

Hervé.