Bonjour à tous.
Coyote, Michel, est-ce que DateSerial ne conviendrait pas?
Dim a as date
a=dateserial(2004,01,11) donne "11/01/04"
et si tu veux le numéro de série correspondant, alors:
Dim b as long
b=format(a,"0")
où directement, b=format(Dateserial(2004,01,11),"0"), qui donne 37997
Bonne journée.
Laurent.