Ontime ne réagit pas

[aubin06]

Bonjour,

Je voudrais créer une application dans laquelle une fenêtre s'ouvre à une certaine heure, mais rien ne se passe à l'heure voulu.
Je joins ici un classeur avec deux macros ultra-simples. Pourquoi rien se passe quand l'horloge du PC affiche 15:30 heures ?
Merci de votre aide
Aubin

 

[Dranreb]

Re : Ontime ne réagit pas

Bonjour.
Essayez:

Application.OnTime Date + TimeValue("15:30:00"), "DisBonjour"

Mais avant 15:30, ou alors ajoutez 1 pour le lendemain.
Cordialement.

 

[aubin06]

Re : Ontime ne réagit pas

Bonjour Dranreb,

Merci pour votre intervention, malheureusement, ça ne marche toujours pas (avec une autre heure, evidemment).

Cordialement

Aubin

 

[Dranreb]

Re : Ontime ne réagit pas

"DisBonjour" vient de s'exécuter chez moi suite à Application.OnTime Date + TimeValue("16:45:00"), "DisBonjour"
Faites des essais avec Now + TimeValue("00:00:05") jusqu'à ce que vous trouviez d'où ça vient. Ça pourrait venir d'un problème de chemin du classeur chez vous qui s'insère mal quelque part…

 

[aubin06]

Re : Ontime ne réagit pas

Bonjour Dranreb,

Mon erreur est tout bête, je croyais qu'il suffisait d'écrire le code dans un module et que ça marche. Finalement, j'ai quand-même trouvé qu'il fallait exécuter la macro "Lancement", même plusieurs heures avant l'heure fixée.
Maintenant, j'ai placé le code du lancement dans "Private Sub Workbook_Open", ainsi la macro est exécuté automatiquement.
Encore merci pour votre aide.
Cordialement,
Aubin