Format CDate mois à deux chiffres

J'ai une cellule inmodifiable en A1 et je voudrais récupérer le mois avec une valeur de mois à deux chiffres et non 1 seul

Février = 02 et non 2 , j'utilise

mois = Month(CDate(Worksheets("donnees").Range("A1")))

Mais ça renvoie valeur 2

Avez vous une idée ?

Merci.

Bonjour,

mois = Format(Month(CDate(Worksheets("donnees").Range("A1"))), "00")

Bonjour,

Essaie ainsi :

Private Sub Worksheet_Activate()
Dim iYear, iMonth
    With Worksheets("donnees")
        If Not IsDate(.Cells(1)) Then Exit Sub
        iMonth = Format(Month(.Cells(1)), "00")
        iYear = Year(.Cells(1))
    End With
    MsgBox "Mois : " & iMonth & vbCrLf & "Année : " & iYear
End Sub

Merci ça fonctionne !!!

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!