scinder la date du jour

[Bruce68]

Bonjour à tous

Dans le code ci dessous j'aimerais avoir Le mois en toute lettres et le jour à 2 chiffes

Sub madate()
Dim aujourdhui As Date
Dim jour As Variant
Dim mois As Variant
Dim an As Variant

aujourdhui = Date

jour = DatePart("d", aujourdhui)
mois = DatePart("m", aujourdhui)
an = DatePart("yyyy", aujourdhui)
End Sub

Merci de votre aide

 

[Pierrot93]

Re : scinder la date du jour

Bonjour,

regarde peut être ceci :

MsgBox MonthName(Month(Date))
MsgBox Format(Day(Date), "00")

bon après midi
@+

 

[Pierrot93]

Re : scinder la date du jour

Re,

ou bien dans la même instruction :

MsgBox Format(Date, "dd mmmm")

 

[Bruce68]

Re : scinder la date du jour

Bonjour Pierrot93

Merci pour la réponse

bonne soirée à tous