Discussion :

[Delivrance]

Bonjour,

Dans le cadre de l'exécution d'un contrat, j'ai essayé d'exploiter la fonction Workday, mais je me trouve bloqué sur une impasse....

Dans le contrat on me parle de livraison vis a vis d'un milestone par exemple T0+30 jours calendaires.
Toutefois s'il y a des vacances la date est décalée d'autant de jour de vacances.

J'ai pensé utiliser la fonction workday(T0,30,Vacances) mais toutefois je viens de me rendre compte que le contrat identifie que les week end (Samedi et dimanche) sont des jours a inclus dans le décompte des 30 jours. Seules les vacances sont à exclure

A ce que j'en ai compris la fonction Workday exclue les Week end, existe t'il une fonction identique mais n'excluant pas les week end ?

J'ai pensé trouver une formule permettant de convertir les jours calendaires en jours ouvrés et réinsérer ces jours ouvrés dans le deuxieme parametre de 'Workday', mais ca ne parait pas si simple. Je me suis dis que j'allais coder la formule en VBA mais je me retrouve bloquer. Je ne sais pas trop comment m'y prendre. J'ai du mal a trouver "l'algorithme" associé...

Voici ce que serait le résultat de la chaine de conversion
1 jour calendaire = 1 jour ouvré
2 jour calendaire = 2 jour ouvré
3 jours calendaires = 3 jours ouvrés
4 jours calendaires = 4 jours ouvrés
5 jours calendaires = 5 jours ouvrés
6 jours calendaires = 5 jours ouvrés
7 jours calendaires = 5 jours ouvrés
8 jours calendaires = 6 jours ouvrés
9 jours calendaires = 7 jours ouvrés
10 jours calendaires = 8 jours ouvrés
11 jours calendaires = 9 jours ouvrés
12 jours calendaires = 10 jours ouvrés
13 jours calendaires = 10 jours ouvrés
14 jours calendaires = 10 jours ouvrés

Je ne sais pas si vous avez déja rencontré tel situation et comment cela a-t'il pu etre résolu.

[kiki29]

Salut, regarde ici

[78chris]

Bonjour

Si seules les vacances sont à exclure il m'apparaitrait plus simple de prendre les jours calendaires moins la durée des vacances car dans le cas présent tu n'utilises pas la notion de jours ouvrés liée à cette fonction.

[papouclo]

Bonjour,
Avec XL-2010 la fonction SERIE.JOUR.OUVRE.INTL (version française), avec en 3ème paramètre la chaîne de caractères "0000000", répond à cette question,
d'où la formule (version française):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SERIE.JOUR.OUVRE.INTL (T0;30;"0000000";Vacances)

La fonction anglaise est, je pense, WORKDAY.INTL mais il faut vérifier la syntaxe.
Cordialement
Claude

[Delivrance]

Bonjour,

les solutions proposées ne menait pas forcément au résultat escompté.
La difficulté que je voyais était de réinjecter le nombre de jour ouvrés dans une date correspondant à un certains nombre de jour calendaire (vu que je dois

• prendre les samedi et les dimanche dans le décompte
• exclure les vacances
• le résultat de la date calculé doit etre un jour "ouvré"

Par conséquent, j'ai procédé au calcul voulu en créant une fonction de conversion selon la loi de mon premier message.
Puis réutiliser la fonction dans la Fonction workday

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=WORKDAY(T0,OpenDaysEquivalent(Lag),HOLIDAYS)

Voici la formule si ca peut servir a d'autres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function OpenDaysEquivalent(CalendarDays As Long) As Long
Application.Volatile
Dim divisor As Long
Dim temp As Long
    If CalendarDays = 0 Then
        OpenDaysEquivalent = 0
    Else
        divisor = (Abs(CalendarDays) - 1) \ 7
        temp = Abs(CalendarDays) - divisor * 7
        Select Case temp
            Case 1, 2, 3, 4
                OpenDaysEquivalent = divisor * 5 + temp
            Case 5, 6, 7
                OpenDaysEquivalent = divisor * 5 + 5
        End Select
        If CalendarDays < 0 Then
            OpenDaysEquivalent = -OpenDaysEquivalent
        Else
            'Nothing
        End If
 
    End If
 
End Function

[Delivrance]

Bon ma fonction ne me donne pas le résultat voulu non plus

Ca marche mieux avec une formule incluant WORKDAY et WORKDAY.INTL...
=WORKDAY(WORKDAY.INTL(T0,Lag,"0000000",HOLIDAYS)-1,1,HOLIDAYS)

Je ne sais pas si c'est propre, mais a réexpliqué dans un ou deux mois ca va pas etre évident...