les dates

[Fred]

Bonjour

Voila mon soucis :

avec les fonction Years + Day + Month je recupere la date du jour.

Mais Year a comme resultat 2004 et j'aimerais 04
de meme Month me donne 7 et j,aimerais 07 ci-joint bout de code

Dim Datedujour As Date
Dim MyDate, MyDay
Dim Monmois, MyMonth
Dim Monannee, MyYear

Datedujour = Date - 1
MyDate = Datedujour
MyDay = Day(MyDate)
Monmois = Datedujour
MyMonth = Month(Monmois)
Monannee = Datedujour
MyYear = Year(Monannee)
Jourtraite = MyDay & "_" & MyMonth & "_" & MyYear

Comment faire merci

 

[jmps]

Salut Fred,

Essaie comme ça :

Dim Jourtraite As String

Jourtraite = Format(Date - 1, "dd_mm_yy")

Tu n'avais pas besoin d'une telle floppée de variables intermédiaires.

Bonne soirée

José

 

[jmps]

Je te la refait sans le gras à la fin :°) LOL !

Essaie comme ça :

Dim Jourtraite As String

Jourtraite = Format(Date - 1, "dd_mm_yy")

Tu n'avais pas besoin d'une telle floppée de variables intermédiaires.

Bonne soirée

José