Date et heure dans un userform

bonjour
Essayer:
Private Sub UserForm_Activate()
Dim h, d, phr As String
Dim dat As Date
dat = Now()
h = Format(dat, "hh:mm:ss")
d = Format(dat, "dddd dd mmmm yyyy")
phr = "Bonjour, nous sommes le " & d & " il est " & h
UserForm1.Label1 = phr
End Sub

je cherche pour le msgbox 15 jours avant.
bon courage
ciao

-----Message d'origine-----
Bonjour, je désire faire apparaître dans un userform très
simple la date et

l'heure du jour.
Exemple : Bonjour, il est "heure", nous sommes le "date".
Merci beaucoup.
Patrick.



.

Merci beaucoup Mike, c'est très sympa de ta part.
Patrick

-----Message d'origine-----
bonjour
Essayer:
Private Sub UserForm_Activate()
Dim h, d, phr As String
Dim dat As Date
dat = Now()
h = Format(dat, "hh:mm:ss")
d = Format(dat, "dddd dd mmmm yyyy")
phr = "Bonjour, nous sommes le " & d & " il est " & h
UserForm1.Label1 = phr
End Sub

je cherche pour le msgbox 15 jours avant.
bon courage
ciao

-----Message d'origine-----
Bonjour, je désire faire apparaître dans un userform
très

simple la date et

l'heure du jour.
Exemple : Bonjour, il est "heure", nous sommes
le "date".

Merci beaucoup.
Patrick.



.

.