Fonction Application OnTime

Bonjour,

Je développe une application qui doit récupérer avec une fréquence forte des infos dans une bases de données.
Grace à certaines infos récupérées sur le forum, le moyen que j'ai trouvé est de d'utiliser :

1) La propriété Workbook_Open de la feuille

Code:

---

1 2 3

Private Sub Workbook_Open() Call MAJRics End Sub

---

2) La fonction OnTime afin de répéter l'exécution de cette macro toutes les 15 secondes

Code:

---

1 2 3 4

Sub MAJRics() Workbooks("Test.xls").RefreshAll Application.OnTime Now + TimeValue("00:00:15"), "MAJRics" End Sub

---

Jusque là, tout va bien, si ce n'est que lorsque j'ouvre une autre feuille excel et que je ferme ma feuille test.xls, la macro continue de s'exécuter et me ré ouvre la feuille Test.xls :? !!!!

Y a t'il un moyen de faire que cette macro s'arrête lors de la fermeture de la feuilles test.xls ?

D'avance merci.

M

Tu as regardé ce qu'il a dans l'aide en ligne à OnTime ? La procédure pour annuler son action est la dernière décrite, en bas de l'aide ;)
Bonne journée

Merci Ouskel'n'or,

Au cas ou cela intéresserait qqun, j'ai du ajouté une variable global

Public vTiming As Variant

chargée avec l'heure de prochaine exécution afin de pouvoir utiliser la fonction before_close

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeClose(Cancel As Boolean)   Application.OnTime TimeValue(vTiming), Procedure:="MAJRics", Schedule:=False   End Sub

---

et le déclanchement de la procédure se fait comme suit :

Code:

---

1 2	vTiming = Now + TimeValue("00:00:15") Application.OnTime TimeValue(vTiming), "MAJRics"

---