Lancer une macro à une heure donnée

Bonjour à tous! :D

Savez-vous s'il est possible d'exécuter une fonction à une heure fixe?

Je m'explique avec un exemple. Le fichier est ouvert à 8H00 et reste ouvert toute la journée. J'aimerais que si l'heure de l'horloge windows est égale à 12H00 par exemple, une fonction se lance automatiquement sans que l'utilisateur du fichier n'ait besoin de faire quelque chose. Est-ce possible?

Je vous remercie d'avoir lu ce post et je vous remercie d'avance si vous avez des choses à proposer.

Bon courage! ;-)

bonjour,

tu peux faire comme ça

tu rajoute dans l'évenement open du classeur!

Code:

---

Application.OnTime TimeValue("17:00:00"), "ta_petite_procedure____connait_pas_la_cruze"

---

;)

Merci pour ta réponse. Mais le problème est que si le fichier reste ouvert pendant toute la semaine, il faut que la macro se lance tous les jours à la même heure (à 12H00 dans mon exemple).

J'avais bien pensé à un truc du style (sur l'ouverture du fichier) :

Code:

---

1 2 3

Do While true Application.OnTime TimeValue("12:00:00"), "Nom procédure" Loop

---

Mais évidemment cela ne fonctionne pas car on ne peut pas laisser un While vrai tout le temps.

Bonjour,

4 choses à faire :

1. à l'ouverture du classeur

Code:

---

1 2 3

Private Sub Workbook_Open() lancer_timer End Sub

---

2. créer la procédure lancer_timer

Code:

---

1 2 3

Sub lancer_timer() Application.OnTime TimeValue("12:00:00"), "ma_macro" End Sub

---

3. ajouter dans la procédure ma_macro

Code:

---

1 2 3 4 5 6 7

Sub ma_macro() 'début de procédure '... '... 'fin de procédure lancer_timer '<-- relance le timer End Sub

---

4. stopper le timer à la fermeture du classeur

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime TimeValue("12:00:00"), "ma_macro", , False End Sub

---

J'ai fini par penser à faire une fonction récursive... donc ce que tu me proposes. En tous cas, merci pour votre aide a tous!!!!

;-)