Discussion :

[novice06]

bonjour,
j'ai récupérer ce code pour générer les jours fériés donc.

j'ai mis ce code dans un module pour qu'on puisse appeler cette fonction par la suite .... mais justement

comment faire pour appeler cette fonction ... je n'ai pas encore bien compris le procédé !?

exemple j'ai une table vide TJFerie prête à recevoir les jours fériés dans le champ JFerie

imaginons un formulaire avec un textebox où l'on entre l'année souhaitée
un bouton qui en cliquant appellerait cette fonction et alimenterait la table TJFerie avec les jours fériés générés pour l'année chosie !!!?

merci de votre aide

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
Function EstFerie(ByVal QuelleDate As Date) As Boolean
Dim anneeDate As Integer
Dim joursFeries(1 To 11) As Date
Dim I As Integer
  anneeDate = Year(QuelleDate)
 
  joursFeries(1) = DateSerial(anneeDate, 1, 1)
  joursFeries(2) = DateSerial(anneeDate, 5, 1)
  joursFeries(3) = DateSerial(anneeDate, 5, 8)
  joursFeries(4) = DateSerial(anneeDate, 7, 14)
  joursFeries(5) = DateSerial(anneeDate, 8, 15)
  joursFeries(6) = DateSerial(anneeDate, 11, 1)
  joursFeries(7) = DateSerial(anneeDate, 11, 11)
  joursFeries(8) = DateSerial(anneeDate, 12, 25)
 
  joursFeries(9) = fLundiPaques(anneeDate)
  joursFeries(10) = joursFeries(9) + 38 ' Ascension = lundi de Paques + 38
  joursFeries(11) = joursFeries(9) + 49 ' Lundi Pentecôte = lundi de Paques + 49
 
  For I = 1 To 11
    If QuelleDate = joursFeries(I) Then
      EstFerie = True
      Exit For
    End If
  Next
End Function
 
Private Function fLundiPaques(ByVal Iyear As Integer) As Date
        'Adapté de +ieurs scripts...
        Dim L(6) As Long, Lj As Long, Lm As Long
 
        L(1) = Iyear Mod 19: L(2) = Iyear Mod 4: L(3) = Iyear Mod 7
        L(4) = (19 * L(1) + 24) Mod 30
        L(5) = ((2 * L(2)) + (4 * L(3)) + (6 * L(4)) + 5) Mod 7
        L(6) = 22 + L(4) + L(5)
 
        If L(6) > 31 Then
                Lj = L(6) - 31
                Lm = 4
        Else
                Lj = L(6)
                Lm = 3
        End If
 
        ' Lundi de Pâques = Paques + 1 jour
        fLundiPaques = DateAdd("d", 1, (Lj & "/" & Lm & "/" & Iyear))
 
End Function

[helios77]

Bonjour,
tes fonctions te permettent juste de dire si le jour que tu passes en parametre est un jour férié ou no

Si tu veux faire une liste sur l'année, tu vas de voir faire une boucle du 1ier Janvier au 31 décembre et à chaque fois faire passer la date par ta fonction pour savoir
si la fonction retourne True alors tu alimentes ta date dans la tables des jours fériés

Pour les utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Test du jour férié ou non
if estFerie(dateTest) then 
         msgbox "Ce jour est férié"
else
         msgbox "Ce jour n'est pas férié"
endif
 
'Recherche du Lundi de paques
msgbox "Pour l'année 2009, le Lundi de Pâques tombe le " & fLundiPaques(2009)