---Soumis par Dev Ashish---
Calcul du nombre de jours ouvrables.
(Q) Comment calculer le nombre total de jours ouvrables
entre deux dates?
(A) Utiliser la fonction suivante.
'*********** Code Start ************** Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer ' Noter que cette fonction ne tient pas compte des jours fériés. Dim WholeWeeks As Variant Dim DateCnt As Variant Dim EndDays As Integer BegDate = DateValue(BegDate) EndDate = DateValue(EndDate) WholeWeeks = DateDiff("w", BegDate, EndDate) DateCnt = DateAdd("ww", WholeWeeks, BegDate) EndDays = 0 Do While DateCnt < EndDate If Format(DateCnt, "ddd") <> "Sun" And _ Format(DateCnt, "ddd") <> "Sat" Then EndDays = EndDays + 1 End If DateCnt = DateAdd("d", 1, DateCnt) Loop Work_Days = WholeWeeks * 5 + EndDays End Function '*********** Code End **************