Mois : Periode

Bonsoir,
1- si le mois peut etre deduit d'une date alors :
'----------------
Private Sub UserForm_Click()
ladate = Now()
datedeb = DateSerial(Year(ladate), Month(ladate), 1)
datefin = DateSerial(Year(ladate), Month(ladate) + 1, 0)
Label1.Caption = "Periode du " & Format(datedeb, "dd/mm/yyyy") & " au " &
Format(datefin, "dd/mm/yyyy")
End Sub
'-----------------
2- si le mois est un nombre , il convient également de définir l'année
ci-dessus alors remplacer Year(ladate) par l'année
et Month(ladate) par le mois

3-si le mois est sous forme texte :
alors remplacer month(ladate) par le mois
quelque chose du genre :
'--------------
select case lcase(lemoisentexte)
case "janvier" : mois=1
case "février" : mois=2
../..
case "août" : mois=8
../..
case "décembre":mois
case else
msgbox "mois inconnu, vérifier orthographe et accents"
end select
'------------

@+
"Ouille" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 98D536A2-E294-4E34-B38A-43FBEB25D419@microsoft.com...

Salut le forum

Es-t'il possible dans un label de récuperer la periode d'un mois suivant
ce mois :

Si Mois de Janvier la periode serait inscrite dans ce label -> Periode du
01/01/2004 au: 31/01/2004

Merci d'avance Ouille