Public Function PlusJOuvres(D, NbJours)
Dim Dt, i
Dim An As Integer
Dt = CLng(D)
Do Until i = NbJours - 1
Dt = Dt + 1
'ajoute si ouvré
If (IsError(Application.Match(Dt, [Fériés], 0))) = True And _
(Weekday(Dt, vbSunday) < 6) = True Then
i = i + 1
End If
Loop
PlusJOuvres = Dt
End Function
'-------------------------------------------------------
Public Function NBJOuvres(Dd, Df)
Dim Dt, i
Dim An As Integer
Dt = CLng(Df)
Do
'ajoute si ouvré
If (IsError(Application.Match(Dt, [Fériés], 0))) = True And _
(Weekday(Dt, vbSunday) < 6) = True Then
i = i + 1
End If
Dt = Dt - 1
Loop Until CLng(Dd) > CLng(Dt)
NBJOuvres = i
End Function