[XL-2007] Macro s'execute en fonction d'heure

[tsrsi2006]

Bonjour je cherche comment lancer un macro en fonction de l'heure deja saisie sur une cellule et merci beaucoup

[Sclarckone]

En testant le contenu de ta cellule ça ne doit pas être bien sorcier...essaie déjà d'écrire quelque chose et on partira de ça.

[tsrsi2006]

par exemple ta un macro intitulé sur un bouton par exemple on veut exécuter ce bouton à 12h00 automatiquement 12h00 est dans la cellule A2, donc si on change la valeur du cellule A2 par 13h30 le macro s'eexcuter à 12h00 en fin de compte je veux exécuter ce macro selon la valeur de la cellule A2 et merci Sclarckone

[Sclarckone]

Faut voir avec des gens plus experts que moi mais ce que tu veux faire me parait difficile:

1°/ Parce qu'à ma connaissance il n'y a pas de possibilité de planifier l'exécution d'une macro sous Excel (faut dire que ça ne servirait pas souvent).

2°/ Parce que pour pouvoir exécuter une macro d'un fichier, il faut que le fichier correspondant soit ouvert.

[tsrsi2006]

oui c'est mon cas le fichier est ouvert bien sur

[tsrsi2006]

j'ai trouvé ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit 
Public Arret As Boolean 
 
Private Sub Demarrage() 
Dim Depart As Double 
  Depart = Now + TimeValue("00:00:10" ) 
 
  If Not Arret Then 
    Application.OnTime Depart, "MaMacro" 
  Else 
    On Error Resume Next 
    Application.OnTime Depart, "MaMacro", Schedule:=False 
  End If 
End Sub 
 
Public Sub MaMacro() 
    MsgBox "coucou" 
End Sub 
 
Private Sub TestArret() 
    Arret = True 
End Sub 
 
Private Sub Auto_Open() 
    Demarrage 
End Sub

je l'ai deja mis sur le code vba mais je ne sais pas ou mettre l'heure pour l'executer

[Sclarckone]

Envoyé par tsrsi2006

je l'ai deja mis sur le code vba mais je ne sais pas ou mettre l'heure pour l'executer

Effectivement il y a une fonction pour lancer une macro à une heure donnée!

Après il suffit de lire l'aide:

Envoyé par VBE Help

Cette méthode programme l'exécution d'une procédure à un moment précis (soit à une heure précise soit après l'écoulement d'un délai précis).

expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
expression Obligatoire. Expression qui renvoie un objet Application.

EarliestTime Argument de type Variant obligatoire. Heure à laquelle vous voulez que la procédure s'exécute.

Procedure Argument de type String obligatoire. Nom de la procédure à exécuter.

LatestTime Argument de type Variant facultatif. Heure maximale à laquelle la procédure peut être exécutée. Par exemple, si vous affectez à l'argument LatestTime la valeur EarliestTime + 30 et que Microsoft Excel n'est pas en mode Ready, Copy, Cut ou Find au moment EarliestTime parce qu'une autre procédure est en cours d'exécution, Microsoft Excel attendra la fin de la procédure pendant 30 secondes. Si Microsoft Excel ne se trouve pas en mode Ready dans les 30 secondes, la procédure ne sera pas exécutée. Si vous ne spécifiez pas cet argument, Microsoft Excel attendra jusqu'à ce que la procédure puisse être exécutée.

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.

Notes
Utilisez Now + TimeValue(time) pour programmer une procédure à exécuter après un certain délai (à partir de maintenant). Utilisez TimeValue(time) pour programmer une procédure à exécuter à un moment précis.