Bonjour,
je suis en train de bosser un peu de vba excel.

Malheureusement j'obtiens une erreur et je ne vois pas comment l'utiliser
J'ai la fonction suivante :
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
 
Function estjourtravaille(jour As Date) As Boolean
Static tableaudimanchepaque() As Double
Dim itest As Integer
Dim i As Integer
 
On Error Resume Next
itest = UBound(tableaudimanchepaque)
 
On Error GoTo 0
 
If itest = 0 Then
 
ReDim tableaudimanchepaque(1970 To 2000)
For i = 1970 To 2100 Step 1
 
tableaudimanchepaque(i) = dimanchedepaque(i)
Next i
End If
 
If Weekday(jour) = 7 Then 'samedi
estjourtravaille = False
 
If Weekday(jour) = 1 Then 'dimanche
estjourtravaille = False
 
ElseIf Day(jour) = 25 And Month(jour) = 12 Then '25 decembre
estjourtravaille = False
 
ElseIf Day(jour) = 26 And Month(jour) = 12 Then '26 decembre
estjourtravaille = False
 
ElseIf Day(jour) = 1 And Month(jour) = 1 Then '1 janvier
estjourtravaille = False
 
ElseIf Day(jour) = 1 And Month(jour) = 5 Then '1 mai
estjourtravaille = False
 
ElseIf jour = tableaudimanchepaque(Year(jour)) - 2 Then
'vendredi saint
estjourtravaille = False
 
ElseIf jour = tableaudimanchepaque(Year(jour)) + 1 Then
'lundi de pâques
estjourtravaille = False
 
Else
 
estjourtravaille = True
 
End If
 
End Function