Discussion :

[Rydrake]

Bonjour à tous,

J'ai un problème déjà posé sur ce forum. J'aimerai calculé le nombre de jours entre deux dates en enlevant les jours ouvrés.
J'ai bien vu la réponse dans la FAQ avec le code à injécté dans un module. Mais la fonction ainsi crée me renvoie "#Nom". Celon mes rechers, il s'agirait du manqué de la reference msowcf dans ma fenetre VBA

[Rydrake]

*EDIT*

Il faut donc apparemment que je passe par un calendrier crée par moi meme, car cet reference et en effet absente de mon PC et je ne peux pas la telecharger.

Question : Comment créer ce calendrier ?

Merci d'avance

[Rydrake]

*Rectification*

Je peux désormais utilize la function expliqué ici : https://www.developpez.net/forums/d9...entre-2-dates/
(J'ai appliqué les modification Cdate etc)

J'aimerai cependant apporté une modification, pouvoir faire en sorte que la difference entre les dates soit negatives

Quelqu'un serait comment faire ?

[Rydrake]

J'en suis ici niveau code mais il faut encore changé quelques lignes, ça ne fonctionne pas pour les cas ou EndDate<BegDate

Code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Function Work_Days(BegDate As Variant, EndDate As Variant, _
                   Optional bAvecJFerie As Boolean = True) As Variant
    Dim dt As Date
 
On Error GoTo Work_Days_Error
    If IsNull(BegDate) Or IsNull(EndDate) Then Err.Raise vbObjectError + 1
    If Not IsDate(BegDate) Or Not IsDate(EndDate) Then Err.Raise vbObjectError + 2
 
 
    dt = CDate(BegDate)
    Work_Days = 0
    If dt <= CDate(EndDate) Then
        While dt <= CDate(EndDate)
            If DatePart("w", dt, vbMonday) < 6 And IIf(bAvecJFerie, Not EstFerie(dt), True) Then
                Work_Days = Work_Days + 1
            End If
            dt = DateAdd("d", 1, dt)
 
        Wend
 
    ElseIf dt > CDate(EndDate) Then
        While dt > CDate(EndDate)
                If DatePart("w", dt, vbMonday) < 6 And IIf(bAvecJFerie, Not EstFerie(dt), True) Then
                    Work_Days = Work_Days - 1
                End If
                dt = DateAdd("d", 1, dt)
 
        Wend
    End If
    Exit Function
 
Work_Days_Error:
    Select Case Err.NUMBER
        Case vbObjectError + 1: Work_Days = "Les 2 dates sont obligatoires."
        Case vbObjectError + 2: Work_Days = "Format de date incorrect."
        Case vbObjectError + 3: Work_Days = "La date de fin doit être postérieure à la date de début."
        Case Else: Work_Days = Err.DESCRIPTION
    End Select
 
End Function

[Rydrake]

Ah c'est bon il fallait que je remplace dt = DateAdd("d", 1, dt) par dt = DateAdd("d", -1, dt).

[marot_r]

Bonjour.

La solution la plus directe est de faire un "wrapper" autours de la fonction actuelle.

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
public function CalculerNbJourOuvreNeg(prmDate1 as variant, prmDate2 as variant) as variant
   dim result as variant:result=null
 
   if isdate(prmDate1) and isdate(prmDate2) then
         if prnDate1 < permDate2 then
             result=Work_Days(prmDate1, prmDate2)
           else
             result=-Work_Days(prmDate2, prmDate1)
      else
         call err.raise(5,,error$(5))
   end if
   CalculerNbJourOuvreNeg=result
end function

A+

[Rydrake]

Bon ben ce fut un plaisir de monologuer avec moi.
En espérant que cette discussion serve à quelqu'un un jour