Jours ouvres en VBA

Bonjour,

J'ai une date de sortie station 02/11/2017 (Nov). Je souhaite déterminer la date d'entrée en comptant 2 jours ouvrés sacahant que le 01/11/2017 est férié.

Je devrais donc avoir comme date d'entrée 30/10/2017.

Or avec la fonction networkdays j'obtiens 31/10/2017.

Voici mon code:

Dim entry_date as date

Dim exit_date as date

Dim NB_jours_ouvres as integer

'calcul de la d'entrée d'entrée en considérant le cycle de la station

entry_date = exit_date -2

'une fois la date d'entrée déterminée on recalcule le cycle de la station en JOURS OUVRES

NB_jours_ouvres = WorksheetFunction.NetworkDays(entry_date, exit_date,

Workbooks(Nom_Fich_PFE).Sheets("CHOMES").Columns(1))

'Si le cycle en JOURS OUVRES est inférieur au cycle nominal de la station, on recalcule la date d'entrée

If NB_jours_ouvres < 2 Then

While NB_jours_ouvres < 2

NB_jours_ouvres = WorksheetFunction.NetworkDays(entry_date, exit_date,

Workbooks(Nom_Fich_PFE).Sheets("CHOMES").Columns(1))

entry_date = entry_date - 1 'on retire les jours non ouvrés

Wend

Else

entry_date = entry_date

End If

Les jours chomes et feries sont rentrés dans la colonne 1 de l'onglet CHOMES

Pouvez-vous me dire comment faire pour obtenir la bonne date d'entrée.

Selon moi il y a un bug lors du calcul du nombre de jours ouvrés entre les date d'entrée et de sortie avec la commande vba NETWORKDAYS.

Merci.