Discussion :

[dec3003]

bonjour tout le monde

voila chose toute simple que je ne parvient pas a faire
j aimerai en vba pouvoir utiliser la formule = Aujourd'hui()
et la decouper de tell sort que j ai 29 integrer dans une variable
03 integrer dans une variable
09(ou 2009 si pas possible) integrer dans une variable

l exemple prennd en compte la date d aujourd'hui le 29/03/2009

je n'insinue rien sur vos connaissance mais comme on dmande d etre precis je le fais

[patbou]

bonjour,

En gros du veux scinder une date en 3 variables (day,month,year) ? Non ?

[dec3003]

tout a fais c est cela que je recherche plus facile comme tu le dis ^^
si tu peu m aider merci

[laetitia]

bonjour dec3003 le forum une macro a adapter

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim LaDate As Date, Lannee As Long
    Dim LeMois As Variant, LeJour As Variant
    LaDate = Date
    Lannee = Year(LaDate)
    LeMois = Month(LaDate)
    LeJour = Day(LaDate)
    LeMois = MonthName(Month(LaDate))
    LeJour = WeekdayName(Weekday(LaDate))
    MsgBox LeJour
    MsgBox LeMois
    MsgBox Lannee
    MsgBox LeMois & vbCrLf & LeJour & vbCrLf & Year(LaDate)
  End Sub

re peut etre plus simple dans ton cas variable a,m,j

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub essai()
Dim a As Long, M As Long, J As Long
MsgBox Day(Now())
MsgBox Month(Now())
MsgBox Year(Now())
a = Year(Now())
M = Month(Now())
J = Day(Now())
End Sub

[ucfoutu]

et la decouper de tell sort que j ai 29 integrer dans une variable
03 integrer dans une variable
09(ou 2009 si pas possible) integrer dans une variable

Bonjour, laetitia,

ta réponse est adéquate, mais, si tu veux répondre exactement à la demande de dec3003, il faut en plus utiliser format (sinon, par exemple, mars donnera 3 et non 03)
Pour l'année (dont dec3003 souhaite le millésime sur 2 chiffres de préférence), on se passera de la fonction Year et on utilisera directement Format. Ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MsgBox Format(Day(Now()), "00")
MsgBox Format(Month(Now()), "00")
MsgBox Format(Now(), "yy")

(mettre bien évidemment dans des variables, en lieu et place des msgbox)

[laetitia]

bonjour ucfoutu bien vu plus pense au format! toujours un grand plaisir de te croiser
a+ leti