XL 2016 Fonction Date

ChTi160 à dit:

Bonjour
Bonjour le Fil (job75) ,le Forum
Sans fichier exemple de ce que tu as , on peut tout imaginer lol
Ex :

VB:

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

Bonne Journée
Jean marie

Cliquez pour agrandir...