Sub test()
Dim DateSource As Date
Dim MaDate As Date
DateSource = Date
MaDate = Format(DateSerial(Year(DateSource), Month(DateSource), 1), "dd-mmm-yyyy")
MsgBox MaDate
End Sub
Merci job75 et Merci ChT160 pour l'aideBonjour
Bonjour le Fil (job75) ,le Forum
Sans fichier exemple de ce que tu as , on peut tout imaginer lol
Ex :
Bonne JournéeVB:Sub test() Dim DateSource As Date Dim MaDate As Date DateSource = Date MaDate = Format(DateSerial(Year(DateSource), Month(DateSource), 1), "dd-mmm-yyyy") MsgBox MaDate End Sub
Jean marie