Discussion :

[grimgrim]

Bonjour,

Je trouve beaucoup de choses sur ce thème mais ne me satisfait pas entièrement car il y a souvent un mélange vba et de formules.

Je recherche la possibilité en VBA de calculer un nombre jours entre deux dates en jours ouvrés et sans jours les jours fériés (les jours fériés étant calculés)

Merci d'avance à tous

Cordialement,

[Invité]

bonjour, test ça

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub test()
Dim D As Date
Dim NbJ As Long
D = CDate("01/05/2014")
For I = 0 To 30
    If Ferier(CLng(D)) = False Then NbJ = NbJ + 1
    D = D + 1
Next
MsgBox NbJ
End Sub
 
Function Ferier(UneDate As Long) As Boolean
' Par défaut la fonction ne considère pas que les Dimanche de Pâques
' et de Pentecôte sont fériés
' il suffit de renseigner l'argument DimanchesOuiNon à True à l'appel de la fonction
' pour les considérer comme fériés
If Weekday(UneDate) = 1 Or Weekday(UneDate) = 7 Then Ferier = True: Exit Function
 
Dim JFF ' table des fériés fixes (jours)
Dim MFF ' table des fériés fixes (mois)
JFF = Array(1, 1, 8, 14, 15, 1, 11, 25)
MFF = Array(1, 5, 5, 7, 8, 11, 11, 12)
Dim J As Long
Ferier = False
' Recherche dans la table des jours fériés fixes
For J = 0 To 7
If Day(UneDate) = JFF(J) And Month(UneDate) = MFF(J) Then
Ferier = True
Exit Function
End If
Next J
Dim FM ' contient les dates des lundis de Paques
'FM = Array(38824, 39181, 39531, 39916, 40273, 40658, 41008, _
'41365, 41750, 42100, 42457, 42842, _
'43192, 43577, 43934, 44291, 44675, _
'45026, 45383, 45768, 46118, 46475, _
'46860, 47210, 47595)
 
FM = Paque(Year(UneDate))
' Recherche si la date est un lundi de paques
' ou jeudi de l'ascension
' ou lundi de pentecôte
'For J = 0 To 24 ' à changer si vous allez au delà de 2030
If (UneDate = FM) Or (UneDate = FM + 39) Or (UneDate = FM + 50) Then
Ferier = True
Exit Function
End If
' si DimanchesOuiNon est vrai
' on teste les dimanches de Pâques et Pentecote
 
 
If DimanchesOuiNon Then
If (UneDate = FM - 1) Or (UneDate = FM + 48) Then
Ferier = True
Exit Function
End If
End If
'Next J
End Function
Function Paque(Annee As Integer) As Date
Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O
C = Annee - 1900
D = C Mod 19
E = (D * 7) + 1
F = Int(E / 19)
G = 11 * D - F + 4
H = G Mod 29
I = Int(C / 4)
J = C - H + I + 31
L = J Mod 7
K = J Mod 7
L = 25 - H - K
M = CDate("31/03/" & Annee)
Paque = M + L
End Function

[grimgrim]

ouah !
c'est pas simple

Il n'existe pas en vba le même type que la formule NB.JOURS.OUVRES ?
Cordialement,

[kiki29]

Salut, je suppose donc que tu as lu ceci

[Invité]

ouah !
c'est pas simple

Il n'existe pas en vba le même type que la formule NB.JOURS.OUVRES ?
Cordialement,

comme tu parlai de jour féries!

[grimgrim]

pour répondre à KKI29, j'avais bien trouvé ce message

[Reddy_Dev]

Bonjour,

J'ai lu cette discussion.

Et dans Microsoft Access comment on fait? J'ai trouvé DiffDate mais ça donne la différence entre deux dates en nombre de jours et non pas en nombre de jours ouvrés
Merci de répondre

[Philippe Tulliez]

Bonjour,
La propriété WorksheetFunction de l'objet Application permet d'utiliser toutes les fonctions d'excel n'ayant pas leur équivalent dans le langage VBA.
Ainsi la méthode NetworkDays équivaut à la fonction de feuille de calcul NB.JOURS.OUVRES
Exemple

Code :

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

1
2
3
 With ActiveSheet
 .Range("D15") = Application.WorksheetFunction.NetworkDays(.Range("A15"), .Range("B15"), Range("Holidays"))
 End With