Discussion :

[man_coef]

Bonjour à tous!

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! ;-)

[mayekeul]

bonjour,

tu peux faire comme ça

tu rajoute dans l'évenement open du classeur!

Code :

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

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

[man_coef]

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 :

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

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.

[fring]

Bonjour,

4 choses à faire :

1. à l'ouverture du classeur

Code :

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

1
2
3
Private Sub Workbook_Open()
lancer_timer
End Sub

2. créer la procédure lancer_timer

Code :

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

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 :

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

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 :

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

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

[man_coef]

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!!!!

;-)