numero du semaine

[elhich]

Salut forum
je cherche à faire une fonction qu,a partir du l'année et le numéro de semaine ,elle renvoi la date de début de cette semaine
par exemple

annee=2004
semaine=33
date_debut= 09/08/2004

A+
Merci

 

[andré]

Salut,

Question souvent posée.

Fais une recherche sous les anciens messages et tu trouveras une solution proposée par Monique (s'il s'agit de dates et heures, je ne peux pas me tromper beaucoup en citant le nom de l'auteur - lol).

Ândré.

 

[andré]

Voilà l'adresse :

<http://www.excel-downloads.com/html/French/forum/messages/1_85665_85665.htm>

Bon amusement pour le choix !
Ândré.

 

[elhich]

Merci Andre

mais comment je peux le faire en VBA?
car j'ai 3 textbox un pour le numéro du semaine et 2 autres pour le jour initial et la jour final, c à dire a partir du N° du semaine je vais extraire la date du jour initiale et le jour final ,et tout ça doit etre en VBA

a+

 

[andré]

Salut,

Je reprends ta question : je cherche à faire une fonction ...

Maintenant du demande du code VBA !

Il faudrait savoir ce que tu veux.

Ândré.

 

[elhich]

merci André
je cherche comment faire cette fonction en vba
A+

 

[ju]

' Retourne une date en connaissant le Ième jour dans la semaine pour une année donnée
' ex : DateByWeekAndDOW(5,47,2003) retourne 21/11/2003
' Dow = Day Of Week 1=Lundi, 2=Mardi,...5=Vendredi
Public Function dateByWeek(ByVal Dow As Integer, _
ByVal Week As Integer, _
ByVal Year As Integer) As Date
Dim d As Date
Dim jourPremierJanvier As Integer
If Week > 0 And Week <= 53 And Dow > 0 And Dow < 8 Then
d = DateAdd("d", 0, "01/01/" & Year) ' premier jour de l'année : 01/01/yy
jourPremierJanvier = d.DayOfWeek ' jour de la semaine du premier janvier
d = DateAdd("d", -jourPremierJanvier + 1, d) ' lundi de la semaine du 01/01/yy
d = DateAdd("ww", Week - 1, d) ' lundi de la semaine à retourner
d = DateAdd("d", Dow - 1, d) ' jour de la semaine à retourner
Return d
End If
Return d

End Function