URGENT Expert demandé ( Date, trouver le début de la semaine )

LundiDay = Day(Now) - Weekday(Now, vbMonday) + 1

J'ai trouvé le 24 lundi good. Sauf que si Ex: vendredi le 2 octobre XXX .. la ca fonctionne plus il me retourne une valeur négative.

Avez vous une idée de comment coder cela sans tous faire a la main ? merci



Nightcourrier

voila une fonction qui peut faire l'affaire !!
Public Function DebutSemaine(valDate As String) As Date
Dim da As Long
Dim nbrj As Long
Dim varDate As Date
If IsDate(valDate) Then
    varDate = CDate(valDate)
    da = Weekday(varDate)
    If da = 1 Then
        nbrj = 1
    ElseIf da > 4 Then
        nbrj = 9 - da
    Else
        nbrj = 2 - da
    End If
    DebutSemaine = varDate + nbrj
Else
    Err.Raise 12345, , "Valeur n'est pas de type Date"
End If
End Function


bonne chance

    Dim j        As Integer
    Dim dt       As Date
    Dim LundiDay As Date

    dt = "02/10/2004"

    j = 2 - Weekday(dt)
    If j = 1 Then j = -6
    LundiDay = dt + j


Daniel