Discussion :

[bigmousse69]

Bonjour,
J'aimerais savoir s'il existe un programme ou une procedure qui permet de me donner le numéro de semaine pour une date précise.
par exemple le 2 février 2009 est en semaine 6. J'aimerais une fonction qui me génére le numero de semaine lorsque je rentre une date .
Merci

[Invité]

Bonjour

Regardes dans l'aide VBA la fonction DatePart.

Philippe

[fred65200]

bonjour,
voici une fonction qui te donne le numero de semaine suivant la Norme ISO
(en fonction du premier jeudi de l'année), différente de la norme americaine.
Cette fonction est de Laurent Longre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function SemISO(dat As Date) As Integer
'----------------- L.Longre
    Dim a As Integer
    a = Int((dat - DateSerial(Year(dat), 1, 1) + _
        ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
        Mod 7) - 3) / 7) + 1
    If a = 0 Then
        a = SemISO(DateSerial(Year(dat) - 1, 12, 31))
    ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) _
        Mod 7 <= 3 Then
        a = 1
    End If
    SemISO = a
End Function

Cordialement