Function DernierJourTravaillé(DteDate As Date) As Date
'
' Renvoie la date du dernier jour ouvré (Lun-Ven) d'un mois.
'
Dim D2 As Date
If VarType(DteDate) <> 7 Then
DernierJourTravaillé = Null
Else
D2 = DateSerial(Year(DteDate), Month(DteDate) + 1, 0)
Do While Weekday(D2) = 1 Or Weekday(D2) = 7
D2 = D2 - 1
Loop
DernierJourTravaillé = D2
End If
End Function