Bonjour à tous, j'ai besion de vos compètances pour résoudre mon bug. J'aimerai mettre un Timer pour activer une macro qui met à jour des données DDE, voilà ce que j'ai mis dans ma macro.
Dim heure As Double
Dim Intervalle As Integer
Sub ExecutionTimer()
Intervalle = 1200 'duree exprimée en secondes=20mn
'code à executer à la fin de chaque intervalle
heure = Now + TimeSerial(0, 0, Intervalle)
Application.onTimer heure, "Puissance_raffineurs_essai.xls!Module3.extraction"
End Sub
Mais elle bloque à Appliction.onTimer heure. Je ne sais pas si le problème vient de l'adresse où se trouve la macro qui s'appelle "extraction". J'ai tout essayé jusqu'à l'adresse complète, mais rien ni fait!
La macro ci-dessous me permet de l'arrêter, est-elle correcte?
Merci d'avance pour votre aide, je suis largué!😕
voilà la macro pour l'arrêter
Sub ArrêtTimer()
On Error Resume Next
Application.onTimer heure, "ExecutionTimer", , False
End Sub
Dim heure As Double
Dim Intervalle As Integer
Sub ExecutionTimer()
Intervalle = 1200 'duree exprimée en secondes=20mn
'code à executer à la fin de chaque intervalle
heure = Now + TimeSerial(0, 0, Intervalle)
Application.onTimer heure, "Puissance_raffineurs_essai.xls!Module3.extraction"
End Sub
Mais elle bloque à Appliction.onTimer heure. Je ne sais pas si le problème vient de l'adresse où se trouve la macro qui s'appelle "extraction". J'ai tout essayé jusqu'à l'adresse complète, mais rien ni fait!
La macro ci-dessous me permet de l'arrêter, est-elle correcte?
Merci d'avance pour votre aide, je suis largué!😕
voilà la macro pour l'arrêter
Sub ArrêtTimer()
On Error Resume Next
Application.onTimer heure, "ExecutionTimer", , False
End Sub