Ajouter des jours ouvrés à une date

Cette fonction permet d'ajouter un nombre de jours ouvrés à une date.
On considèrera dans cette fonction qu'un jour ouvré un un jour qui n'est ni un samedi, ni un dimanche et ni un jour férié.

Pour utiliser cette fonction, vous devez également disposer des fonctions "fPaques", et "JourFérié" décrite dans les rubriques précédentes.

L'argument "dt" correspond à la date de départ et l'argument "nbDay" correspond au nombre de jours ouvrés que l'on souhaite ajouter.

Public Function AddOpenDay(dt As Date, nbDay As Integer) As Date
'** Ajouter des jours ouvrés à une date

Dim dblDt As Double
Dim nb%

dblDt = CDbl(dt)
Do Until nb = nbDay
    dblDt = dblDt + 1
    If WeekDay(CDate(dblDt)) <> 1 _
        And WeekDay(CDate(dblDt)) <> 7 _
        And JourFérié(CDate(dblDt)) = False Then
            nb = nb + 1
    End If
Loop

AddOpenDay = CDate(dblDt)

End Function

Cette fonction retournera une date correspondant à la date de départ + le nombre de jours ouvrés.

Auteur : Jessy SEMPERE