VBA/xl97 - Comment arrêter un timer ds user32.dll

Bonjour,
J'utilise deux fonctions d'user32 dans un userform

Code:

---

Declare Function SetTimer Lib "user32" (ByVal ghwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

---

Le timer est lancé par la ligne

Code:

---

khwnd = SetTimer(ghwnd, 0, 1, AddressOf97("GetPressedKey"))

---

Là, ça marche.

Quant à la seconde censée l'arrêter...

Code:

---

Declare Function KillTimer Lib "user32" (ByVal khwnd As Long, ByVal nIDEvent As Long) As Long

---

... lancée par la ligne

Code:

---

KillTimer khwnd, 0

---

... reste inopérant
(ghwnd et khwnd sont déclarés en public dans un module)

Si quelqu'un a la solution pour que ça fonctionne, il aura droit à ma reconnaissance éternelle (si si !)

Donc, d'avance, merci

A+

NB - Même s'il ne marche pas mieux que les autres, le code ci-dessus est celui qui m'a semblé le plus cohérent de mes nombreux essais... :cry:

exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Declare Function SetTimer Lib "user32" (ByVal ghwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal kHwnd As Long, ByVal nIDEvent As Long) As Long   Public kHwnd As Long           Sub TimerActivate() kHwnd = Application.Hwnd If SetTimer(kHwnd, 0, 1, AddressOf testTimer) Then MsgBox kHwnd End Sub       Sub TimerDeactivate() KillTimer kHwnd, 0 End Sub Sub testTimer() [Feuil1!A1] = Format(Now, "hh:mm:ss") End Sub

---