Trouver une date ALAP

Bonjour,

Je suis actuellement en train de construire un planning sous forme de gantt
graphique dans excel.

Il me faudrait pouvoir calculer une date ALAP à partir d'une date de fin et
du reste à faire pour la tâche, c'est à dire que si le reste à faire est de 3
jours et que la date prévue est lundi, alors la date ALAP est mercredi de la
semaine d'avant (et non vendredi)

Pour cela j'avais commencé par faire une fonction VBA en utilisant
networkdays() mais apparememnt elle ne fonctionne pas. Puis j'ai tenté avec
weekday. Ca ne marche pas non plus : il ne "voit" pas les week ends :/

L'idée de ma fonction est la suivante :
On commence à dateFin-1, avec un nombre de jours calendaires disponibles
(variable jours)
datet est la date que l'on parcourt

Tant que jours est < au reste à faire (raf ici), on
* vérifie si le jour est un jours de semaine. Si oui, alors on incrémente
la variable jours. Si non, on ne fait rien
* décrémente dateT
Wend

Voici la fonction proprement dite ...

Function nbJoursCalendaires(dateFin As Date, raf As Integer)

Dim c, jours As Integer
Dim datet As Date

c = Round(raf)

datet = dateFin - 1
jours = 0
While jours < c
If Weekday(datet, vbMonday) < 6 Then
jours = jours + 1
End If
datet = datet - 1
Wend
nbJoursCalendaires = jours

End Function

Je ne vois pas mon erreur de logique :(

Quelqu'un a déja cherché à faire le même genre de chose ?

Merci beaucoup en tous cas si j'ai une réponse, je suis un peu bloqué :)

Cordialement,


JC Montigny