Changement de date automatique apres 5 h

Bonjour à tous,

Dans un Textbox, j'ai inséré un code pour qu'il m'affiche la date automatique lorsque je lance le userform2

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "dd-mm-yyyy")

End Sub

mais à partir de minuit la date change, ce qui est logique vue que c'est la date systeme

En fait, je souhaiterai que la date change à partir de 5 h du matin

J'ai bien penser à retarder la date systeme de 5h mais sa ne m'arrange pas.

Merci d'avance pour vos réposes

KeMeLoS

Bonjour

En enlevant 5h00 à Now :

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now - 5 / 24, "dd-mm-yyyy")
End Sub

Amicalement

Nad

bonjour,

Private Sub UserForm_Initialize()
    If Hour(Now) >= 0 And Hour(Now) < 5 Then
        TextBox1.Value = Format(DateAdd("d", -1, Date), "dd-mm-yyyy")
    Else
        TextBox1.Value = Format(Now, "dd-mm-yyyy")
    End If
End Sub