Discussion :

[ouioui_cmoi]

bonjour, je voudrais créer une application "application.ontime" qui s'exécute une fois par mois, à un jour donné.
D'une part, je voudrais savoir,si on pouvait ouvrir automatiquement le fichier à une date et heure donnée...
J'ai essayé que, à l'ouverture du fichier à une date donnée, il m"affiche une alarme, par le code dans le workbook :

Code :

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

1
2
Private Sub Workbook_Open()     Application.OnTime dateValue("11/03/2008"), "afficheralarme"
End Sub

puis la définition de la procédure afficheralarme :

Code :

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

1
2
3
4
5
Sub afficheralarme()
    Application.OnTime 
  dateValue("11/03/2008"), "afficheralarme"
msgbox "alarme"
End Sub

Mais, à l'ouverture du fichier, ça me met la msgbox en boucle sans moyen de l'arreter (dès qu'on clique sur ok, elle réapparai...)
Quelqu'un aurait il une solution?
merci d'avance

[illight]

Un truc peut etre idiot, mais il faut peut etre mettre une heure aussi, avec la date, sinon dès que tu es le 11/03 il va te faire tourner la macro, et vu que le 11 il dure 24h

Enfin je sais pas en fait, je dis ça, mais faut tester

[Invité]

Bonjour

D'une part, je voudrais savoir,si on pouvait ouvrir automatiquement le fichier à une date et heure donnée...

Regardes du coté des tâches planifiées de Windows.

Starec

[ouioui_cmoi]

oui, je sais, mais le problème si je met une heure précise, c'est qu'il faut que le document soit ouvert à cette heure précise, sinon, il n'y a pas d'alarme...
c'est pour ça que j'essaie de le faire sur une plage d'un jour entier, quitte à ce qu'il m'affiche l'alarme à chaque ouverture du fichier ce jour là

et je viens d'y penser...je ne veux pas que il s'ouvre automatiquement, car il devrait pouvoir marcher sur plusieurs pc...

[ouskel'n'or]

Pour neutraliser ton "Application.OnTime, regarde à Ontime, dans l'aide, l'argument Schedule. Extrait :

Schedule Argument de type Variant facultatif. Cet argument a la valeur True pour programmer une nouvelle procédure OnTime. Il a la valeur False pour effacer une procédure précédemment définie. La valeur par défaut est True.
Cet exemple montre comment annuler le paramétrage de OnTime de l'exemple précédent.

Code :

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

1
2
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
    Procedure:="my_Procedure", Schedule:=False

A+

[ouioui_cmoi]

thanks a lot

[ouioui_cmoi]

Je remonte ce topic, car j essaie de faire une sorte d'alarme qui, par exemple se lancerait tous les 1ers mercredis du mois.
J'ai écrit ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub my_Procedure()
 
 
MsgBox ("reveille toi")
 
End Sub
 
 
Sub alarme()
 
 
Application.OnTime EarliestTime:=DateValue("17/03/2008 00:03"), _
    Procedure:="my_Procedure", LatestTime:=DateValue("18/03/2008 00:02")
Application.OnTime EarliestTime:=DateValue("17/04/2008 00:03"), _
    Procedure:="my_Procedure", LatestTime:=DateValue("18/04/2008 00:02")
 
 
 
 
End Sub

Mais ça ne marche pas automatiquement lorsque je lance excel...
De plus, je ne comprends pas vraiment comment fonctionne l'option "schedule"
Merci par avance de votre aide

[ouskel'n'or]

Je ne vais pas tester mais déjà, je mettrais ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub my_Procedure()
MsgBox ("reveille toi")
 Application.OnTime EarliestTime:=TimeValue("17/03/2008 00:03"), _
    Procedure:="my_Procedure", Schedule:=False    
End Sub
 
 
Sub alarme()
Application.OnTime EarliestTime:=DateValue("17/03/2008 00:03"), _
    Procedure:="my_Procedure", LatestTime:=DateValue("18/03/2008 00:02")
End Sub

Tu testes