bonjour
voila j'aimerais executer une macro mais pas par heure de decompte comme stipuler en haut mais par rapport a une cellule
c'est a dire que je rentre l'heure dans la cellule et lorsque l'heure arrive a l'heure de la cellule la macro s'execute
j'ai bien copier ce code mais je suis obliger de rentrer dans le code pour changer l'heure
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
21
22
23
24
25
26
27
28
29
30
 
 
Dim bstop As Boolean
Dim HeureProchainAppel
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 bstop = True
 HorlogeEnc3
End Sub
 
Private Sub Workbook_Open()
 HorlogeEnc3
End Sub
 
Sub HorlogeEnc3()
If bstop = True Then
 'Annuler le paramétrage du OnTime programmé précédemment.
 Application.OnTime EarliestTime:=HeureProchainAppel, _
    Procedure:="ThisWorkbook.HorlogeEnc3", Schedule:=False
    Exit Sub
End If
 
  Sheets("feuil2").Range("A18").Value = Format(Now, "HH:MM:SS")
 
'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnc3", False
Application.OnTime TimeValue("14:13:00"), "Macro1"
Application.OnTime TimeValue("14:13:03"), "Macro2"
End Sub
,mais je voudrais ne pas rentrer dans le code mais que le code s'execute par rapport a l'heure de la cellule feuille2 cellule A 18 plus la macro2 apres 3 secondes
merci de votre aide