La fonction VBA Now renvoie la date et l'heure actuelles du système.
Now
Nous stockons la date renvoyée par la fonction Now dans la cellule A1 :
Sub NowExample1() Range("A1") = Now End Sub
Affichons la date renvoyée par la fonction Now au format texte :
Sub NowExample2() MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Retours, par exemple : 2 novembre 2020 13h08 End Sub
Nous effecteurons l'action seulement s'il est au moins 17h00 et un jour de semaine :
Sub NowExample3() If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then MsgBox "La journée de travail est presque terminée !" End If End Sub