Discussion :

[graphikris]

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 :

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

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

[casefayere]

Bonjour,
et ce code ne suffirait pas

Code :

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

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

[graphikris]

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 ?

[casefayere]

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 :

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

If variable = Date

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

[graphikris]

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é

[casefayere]

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

[graphikris]

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.

[kiki29]

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

[graphikris]

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.

[casefayere]

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 :

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

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 :

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

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

[graphikris]

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

[casefayere]

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

[eriiic]

Bonjour,

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

[Citrax]

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 :

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

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

[graphikris]

merci Citrax, j'essaye