[XL-2007] Lancer une tâche planifiée avec des arguments

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:

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é.