Jours ouvrée

Bonjour

je me tourne vers vous car j'ai une feuille ou il y a un calendrier de présent

sauf que au lieu de me mettre le samedi en jours ouvrés il me mais le dimanche :s

voici mon bout de code

Public Function IsWeekend(wDate As Date) As Integer
Dim d As Date
Dim n As Long
n = 0
    If WeekDay(wDate) = 7 Or WeekDay(wDate) = 7 Then IsWeekend = 1
    If WeekDay(d) = vbSaturday Then
        n = n - 0
    ElseIf WeekDay(d) = vbSunday Then
        n = n - 0
        Else
        IsWeekend = n
        End If
End Function

merci d'avance pour votre aide

Bonsoir,

A tester

Public Function IsWeekend(wDate As Date) As Integer
Dim d As Date
Dim n As Long
n = 0
    If Weekday(wDate) = 7 Or Weekday(wDate) = 1 Then IsWeekend = 1
    If Weekday(d) = vbSaturday Then
        n = n - 0
    ElseIf Weekday(d) = vbSunday Then
        n = n - 0
        Else
        IsWeekend = n
        End If
End Function

merci de ta réponse

cependant il ne m'affiche toujours rien dans ma colonne Samedi et dimanche alors que je veux que le samedi et quelque chose d'inscrit

c bon j'ai réussi a modifiant un peu le code en mettant cela

Public Function IsWeekend(wDate As Date) As Integer
    Dim d As Date
    Dim n As Long
    n = 0
        If WeekDay(wDate) = 7 Or WeekDay(wDate) = 7 Then IsWeekend = 1
        If WeekDay(d) = vbSaturday Then
            n = n - 0
        ElseIf WeekDay(d) = vbSunday Then
            n = n - 0
            Else
            IsWeekend = n
            End If
    End Function

et en modifiant une ligne un peu plus bas

Public Function NDJOUR(D1 As Date) As String
NDJOUR = Choose(WeekDay(D1), "L", "M", "M", "J", "V", "S", "D")
End Function