Sub essDate()
Dim Date_Actuelle$, Mois_Actuel$
Date_Actuelle = "04/07/2010"
Mois_Actuel = Month(Date_Actuelle)
Range("a1") = Format(CDate(Date_Actuelle), "m/d/yyyy")
Range("a2") = Mois_Actuel
End Sub
Ne me demande pas pourquoi jour et mois sont inversés,
je n'ai jamais compris la subtilité ! mais le résultat est bon