Discussion :

[muppetshow]

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 :

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

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 :

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

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

[ouskel'n'or]

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

[muppetshow]

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 :

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

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 :

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

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