application ontime datevalue

Version imprimable

11/03/2008, 15h38
ouioui_cmoi

application ontime datevalue
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:

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:

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
11/03/2008, 15h51
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 :mrgreen:

Enfin je sais pas en fait, je dis ça, mais faut tester ;)
11/03/2008, 15h53
Invité

Bonjour

Citation:

Envoyé par ouioui_cmoi

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
11/03/2008, 15h54
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...
12/03/2008, 10h28
ouskel'n'or
Pour neutraliser ton "Application.OnTime, regarde à Ontime, dans l'aide, l'argument Schedule. Extrait :
Citation:
Envoyé par l'aide en ligne

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:

1 2 Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False
A+
12/03/2008, 10h33
ouioui_cmoi

thanks a lot :)

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:

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

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

Code:

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