bonjour Fabrice
tu peux tester la macro ci dessous ( le dimanche en premier jour de la semaine ) ...il existe certainement une solution plus simple
Sub dateSelonNumSemaine()
Dim i As Integer, valAnnee As Integer
Dim J As Byte, valSemaine As Byte, X As Byte
Dim Sem As Date, Dte As Date
Dim Tableau(7)
valSemaine = InputBox("Saisir le numéro de semaine . ", "Semaine", 1)
valAnnee = InputBox("Saisir l'année . ", "annee", 2004)
For i = 1 To 367
Dte = "01/01/" & valAnnee
Dte = Dte + i - 1
Sem = Format(Dte, "WW", , vbFirstJan1)
If Format(Sem, "00") = Format(valSemaine, "00") Then
Tableau(J) = Format(Dte, "d mmmm yyyy")
J = J + 1
End If
Next i
'gestion semaine01
If Format(valSemaine, "00") = 1 Then
For X = 1 To J
If CDate(Tableau(X - 1)) + 1 <> CDate(Tableau(X)) Then
J = X
Exit For
End If
Next X
End If
MsgBox "Année : " & valAnnee & " Semaine : " & valSemaine & Chr(10) _
& Chr(10) _
& "Début : " & Tableau(0) & Chr(10) _
& "Fin : " & Tableau(J - 1)
End Sub
bon apres midi
michel