scinder la date du jour

Bruce68 · 3 Août 2012

Bonjour à tous

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

Code:

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 · 3 Août 2012

Re : scinder la date du jour

Bonjour,

regarde peut être ceci :

Code:

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

bon après midi
@+

Pierrot93 · 3 Août 2012

Re : scinder la date du jour

Re,

ou bien dans la même instruction :

Code:

MsgBox Format(Date, "dd mmmm")

Bruce68 · 3 Août 2012

Re : scinder la date du jour

Bonjour Pierrot93

Merci pour la réponse

bonne soirée à tous

scinder la date du jour

Bruce68

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Bruce68

XLDnaute Impliqué

Discussions similaires