Macro à partir d'une date

Bonjour à tous

Un de mes collègues part à la retraite ( le veinard ) fin juin.

C'est lui qui m'a appris mon métier il y à plus de 25 ans et même s'il est adorable, il ne m'a pas loupé à certain moment

Je lui prépare donc une petite blague pour son départ.

Lui et moi sommes les seuls à utiliser un classeur excel spécifique. Dans celui ci, j'ai rajouté cette macro :

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

Afin qu'a une date précise une image apparaisse sur l'écran.

La macro fonctionne mais le hic est que s'il n'ouvre pas le classeur le jour défini, Elle ne fonctionnera pas.

Comment faire comprendre à cette macro que l'image doit s'ouvrir si la date est égale ou supérieure à la date en J1

Merci à vous et bonne fin de journée

Bonjour,

Coté excel, je ne pense pas que tu trouves solution. En revanche du coté du planificateur des taches, tu dois pouvoir organiser ta surprise.

DAns les outils d'administration tu dois trouver le planificateur des taches.

Cordialement

Bonjour,

a tester :

Sub Workbook_Open()
    If Date >= Sheets("Index").Range("J1").Value Then
        If Time > "12:54:00" Then
            Call lol
        Else
            Application.OnTime TimeValue("12:54:00"), "lol"
        End If
    Else
        Exit Sub
    End If
End Sub

Bien sûr comme dit ddetp88 il faut que le classeur soit ouvert.

eric

Merci à vous deux.

Je test le >= et vous tiens au courant.

Super, la macro d’Éric fonctionne parfaitement...

Merci beaucoup et bonne fin de journée à vous deux.