Format Date en semaine

[Jum_o]

Bonjour,

J'aimerais convertir ce bout de code pour qu'à la fin, ma variable date_en_cours soit sous forme de semaine. Voila mon code:

Dim DD As Date
Dim date_en_cours As String

DD = Now()
MOIS = Format(DD, "mm")
ANNEE = Format(DD, "yyyy")
date_en_cours = CDate("01/" & MOIS & "/" & ANNEE)


Quelqu'un pourrait m'aider svp?

Merci de vos retours.

Jum_o

 

[BERRACHED said]

Re : Format Date en semaine

Salut,jum o

voila une fonction qui fait ca :

Function CLSC(Dates As Date) As Integer
Dim Semaine As Integer
Semaine = Int((Dates - DateSerial(Year(Dates), 1, 1) + _
((Weekday(DateSerial(Year(Dates), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If Semaine = 0 Then
Semaine = CLSC(DateSerial(Year(Dates) - 1, 12, 31))
ElseIf Semaine = 53 And (Weekday(DateSerial(Year(Dates), 12, 31)) - 1) _
Mod 7 <= 3 Then
Semaine = 1
End If
CLSC = Semaine
End Function

Cordialement

 

[kjin]

Re : Format Date en semaine

Bonjour,
semaine = CInt(Format(Date, "ww"))
Avec cette méthode 31/12/08 donnera semaine 53 et non 1
A+
kjin

 

[Jum_o]

Re : Format Date en semaine

Bonjour,

Said en mettant texto ton code (et en remplacant semaine par date_en_cours) j'obtiens un message: "L'indice n'appartient pas à la sélection" pour cette ligne de mon code:

Code:
For j= 2 to 48
If (ThisWorkbook.Sheets(domaine).Cells(4, j).Value = date_en_cours) Then.

Sachant que sur cette ligne 4 j'ai: S1;S2;S3.....S53
Quelqu'un a t-il une idée?

Merci pour votre retour.

Jum_o