Exécuter une macro à une date et heure précise

isa44 · 4 Décembre 2009

Bonjour , comment exécuter une seule fois une macro ( macro15) si la date de la cellule D4 est égale à celle d'aujourd'hui et si l'heure est supérieure à 19H00 ?

Merci pour votre aide

kllmoon · 4 Décembre 2009

Re : Exécuter une macro à une date et heure précise

Bonjour Isa, je te suggère de mettre ce code dans workbook pour son exécution automatique au lancement :

Code:

Sub Workbook_Open()
Dim variable As Date
Dim variable2 As String
variable = Sheets("Feuil1").Range("D4").Value
variable2 = Format(Now, "yyyy-mm-dd")
If variable = variable2 Then
 If Format(Now, "hh:mm:ss") > "19:00:00" Then
 Call macro15
 Else
 Application.OnTime TimeValue("19:00:00"), "macro15"
 End If
Else
Exit Sub
End If
End Sub

théoriquement ça devrait fonctionner. N'oublie pas de changer variable = Sheets("Feuil1").Range("D4").Value pour le nom de feuille où se trouve D4.

Bonne journée.

Exécuter une macro à une date et heure précise

isa44

XLDnaute Occasionnel

kllmoon

XLDnaute Occasionnel

Discussions similaires

Exécuter une macro à une date et heure précise

isa44

XLDnaute Occasionnel

kllmoon

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency