Déclencher macro a date et heure precise

Bonjour,

Je cherche a faire déclencher une macro à une date et une heure bien précise.
J'ai ce code que je mets dans WorkbookOpen mais le souci est que soit ça déclenche la macro car la date (mise en A1 feuille "Planning") et l'heure de l'ordi correspondent ou est dépassé soit rien ne s'effectue :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub destruction_date_heure_programmee() Dim variable As Date Dim variable2 As String variable = Sheets("Planning").Range("A1").Value variable2 = Format(Now, "yyyy-mm-dd") If variable = variable2 Then If Format(Now, "hh:mm:ss") > "09:00:00" Then Call Macro1 Else Application.OnTime TimeValue("09:00:00"), "macro1" End If Else Exit Sub End If End Sub

---

Moi je cherche a faire déclencher ma macro par exemple le 16 mai 2016 à 09:15:00 de façon a ce que si je demarre mon ordi le 16 mai 2016 à 08:00:15 alors rien ne se passe et dès qu'il sera 09:15:00 alors la macro se déclenche automatiquement.
Par contre si j'allume mon ordi le 16 mai 2016 à 10:15:00 alors la macro se déclenchera puisqu'elle aurait dû normalement s'effectuer à 09:15:00 mais mon ordi etait eteint à cette heure. Idem si je n'allume mon ordi que le 19 mai 2016 à 08:00:00 car on suppose que le 17 et 18 mai etant un week end et que je n'etais pas au travail.

Quelqu'un a une idée ?

Cordialement

Bonjour,
et ce code ne suffirait pas

Code:

---

1 2 3 4 5 6 7 8 9

Sub destruction_date_heure_programmee() Dim variable As Date variable = Sheets("Planning").Range("A1").Value If variable = Date Then If Format(Now, "hh:mm:ss") > "09:00:00" Then Call Macro1 End If End If End Sub

---

Effectivement ce code est plus light mais si j'allume mon ordi à 08:00:00, la macro va-t-elle se déclencher à 09:00:00 ?

même ton fichier ouvert à 8h00 ne déclenchera pas la macro car l'évènement est dans WorkbookOpen, il faut trouver un autre évènement plus ponctuel et voir avec les conditions

Code:

---

If variable = Date

---

"=" ou ">" ou "<" ou"<="....

Et oui mon problème est bien là.
Il faut que je trouve comment faire déclencher automatiquement ma macro à l'heure et date précise.
Et en plus si mon ordi n'a pas été allumé à l'heure et date programmée, la macro doit s'exécuter dès que je le rallumerai.

J'ai cherché sur le net, j'ai rien trouvé :aie:

Citation:

---

Et en plus si mon ordi n'a pas été allumé à l'heure et date programmée

---

de toutes façons, ordi allumé ne déclenchera jamais la macro si tu n'ouvres pas ton fichier

Citation:

---

de toutes façons, ordi allumé ne déclenchera jamais la macro si tu n'ouvres pas ton fichier

---

Bien évidemment, il en va de soi.:ptdr:

Salut, il faut plutôt aller chercher du côté de gestion tâches planifiees

Je pensais que ça allait etre plus simple que ça.
De toutes manières, nos PC sont bloqués au strict minimum au taf.
Donc pas possible. :(

Bonjour kiki,
je pense que tu as raison, à part élaboré un truc tordu du style
dès qu'on change le contenu d'une cellule sur une feuille quelconque

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim macstop As Boolean Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim variable As Date variable = Sheets("Planning").Range("A1").Value If variable >= Date Then If Format(Now, "hh:mm:ss") > "09:00:00" Then macro1 End If End If   End Sub

---

la macro d'essai

Code:

---

1 2 3 4 5 6 7 8

Sub macro1() If macstop = False Then MsgBox "patience, macro en cours" Else Exit Sub End If macstop = True End Sub

---

c'est vraiment tordu !!!!

d'ailleurs, préférer "Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)"

Merci c'est gentil casefayere mais la macro doit se dérouler sans que l'utilisateur ne soit averti ou bloqué.

ma macro avec message n'est qu'un exemple, à remplacer par ta macro, quant au blocage, tout dépend justement de ce que contient ta macro

Bonjour,

Avec OnTime le fichier s'ouvre à l'heure demandée pour exécuter la macro si jamais il n'est pas ouvert.
eric

Un peu en retard mais avec un minuteur a l'ouverture, personne ne verra ce qu'il se passe jusqu'a l'instant T.

J'utilise ce code pour cela :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() Worksheets("Feuil1").Select   'Effectue une action x temps après ouverture Application.OnTime Now + TimeValue("00:00:10"), "Argh" End Sub

---

merci Citrax, j'essaye