Salut Jean Marie, Casse Tête
"Sûrement pas assez d'explication..." Arf... y fait une quarantaine de lignes mon post et avec deux Nota Bene, plus un post additif pour expliquer oùplacer le tout !!
Si Casse Tête a bien tout appliqué, c'est à dire un copié collé dans "le Private Module de "ThisWorkBook"... comme expliqué à 8:36... Ce n'est pas çà le problème.
En fait c'est tout bête, et çà n'a rien à voir avec l'emplacement !!
c'est :
Sub Stopping()
Application.OnTime EarliestTime:=TimeValue("08:00:00"), _
Procedure:="my_Procedure", Schedule:=False
Running = False
End Sub
qui est faux (j'ai copié l'exemple e l'aide direct !! lol)
Il faut écrire ceci dans ton cas Casse Tête :
Sub Stopping()
Application.OnTime EarliestTime:=TimeValue("08:00:00"), _
Procedure:="Start", Schedule:=False
Running = False
End Sub
Sinon bien vu Jean Marie pour le reste, une énorme et terrible erreur (surtout pour les pauvres arbres d'Amazonie !!!) TimeValue("01:00:00") pour avoir un déclanchement toutes les heures et pas toutes les minutes !!!
Bon Aprèm
@+Thierry