Discussion :

[potili2]

Bonjour,
J'ai une macro1 qui tourne toutes les 10 secondes et je veux en lancer une seconde, de temps en temps, par un raccourci clavier.
Pour que tout fonctionne bien, je dois arréter provisoirement la macro1.
comment intégrer, au début de la macro2, l'ordre d'arréter la macro1 et éliminer le fameux message "impossible d'executer une macro en mode arret" en réinitialisant automatiquement?
ça me semble etre comme le serpent qui se mord la queue...
merci pour votre aide.
JP

[fred65200]

bonjour,

si ta macro est déclenchée par une méthode OnTime,

dans ta seconde macro, au début, essaie

Code :

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

Application.OnTime NextTime, "Macro1", schedule:=False

non testée.

@+

[potili2]

ok, si je comprends bien, en rajoutant une temporisation pour laisser l'arret se faire. et toujours si je comprends bien, il doit etre possible de relancer la macro1 ensuite...
je teste et je vous tiens au courant du résultat.
merci!

[fred65200]

re
j'ai oublié de préciser

Code :

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

NextTime = Now + TimeValue("00:00:01")

et n'oublie pas de mettre onerror resume next avant de stopper ton timer.

@+

[cafeine]

Hello,

tu peux utiliser une variable booléenne de blocage ...

Code :

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

Public blnBloquerMacro1 As Boolean

et conditionner ton code de toutes les 10 secondes sur

Code :

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

If Not blnBloquerMacro1 Then

[potili2]

Code :

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

Application.OnTime NextTime, "miseajour"

fonctionne
et

Code :

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

Application.OnTime NextTime, "miseajour", schedule:=False

ne fonctionne pas
j'avoue ne pas comprendre pourquoi ce paramètre entraine une erreur
la variable booléenne semble effectivement une autre solution