Une date à partir d'une année

Bonjour tout le monde.

Voilà, j'aimerais obtenir, à partir d'une année sous forme d'entier (i.e 2004), la date du 1er Janvier d ecette année (i.e 01/01/2004).

Je ne sais pas si l'on peut écrire quelque-chose comme

Dim d As Date
annee = 2004
d = #01/01/annee#

pour que cela fonctionne, ou s'il y a un autre moyen.

Merci d'éclairer ma lanterne,

Cordialement

Bonjour

Essayes plutôt

Sub truc()
Dim d As Date
Dim annee As Integer

annee = 2004
d = DateSerial(annee, 1, 1)
End Sub

C'est exactement ce qu'il me fallait.

Merci beaucoup et bonne journée !