JOURS OUVRABLE PAR MOIS, FÉRIÉS COMPRIS

VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 - 22 avril 2003 à 19:41
laurentmayolle Messages postés 2 Date d'inscription mardi 17 juillet 2007 Statut Membre Dernière intervention 30 décembre 2010 - 30 déc. 2010 à 09:14

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6815-jours-ouvrable-par-mois-feries-compris

laurentmayolle Messages postés 2 Date d'inscription mardi 17 juillet 2007 Statut Membre Dernière intervention 30 décembre 2010
30 déc. 2010 à 09:14

J'ai réutilisé votre code aujourd'hui pour un utilitaire dont j'avais besoin.
Il me fallait utiliser plusieurs fois la même fonction et j'ai fait le découpage suivant :
Public Sub AfficherJoursFeries(AAnnee As Integer)
Dim strMessage As String
Dim intI As Integer
Dim JF(10) As Date 'la tableau de tous les jours fériés de l'année
DatesJoursFeries AAnnee, JF()
For intI = 0 To 10
strMessage = strMessage & Format(JF(intI), "dddd dd MMMM YYYY") & vbCrLf
Next
MsgBox strMessage, vbOKOnly, "Jours fériés de " & AAnnee
End Sub

Private Sub DatesJoursFeries(AAnnee As Integer, AJF As Variant)
Dim DatePaques As Date
'ces jours fériés là sont à dates fixes
AJF(0) = CDate("01/01/" & CStr(AAnnee)) 'Jour de l'an
AJF(1) = CDate("01/05/" & CStr(AAnnee)) 'Fête du travail
AJF(2) = CDate("08/05/" & CStr(AAnnee)) 'Victoire 1945
AJF(3) = CDate("14/07/" & CStr(AAnnee)) 'Fête Nationnale
AJF(4) = CDate("15/08/" & CStr(AAnnee)) 'Assomption
AJF(5) = CDate("01/11/" & CStr(AAnnee)) 'La toussaint
AJF(6) = CDate("11/11/" & CStr(AAnnee)) 'Armistice
AJF(7) = CDate("25/12/" & CStr(AAnnee)) 'Noël
'on récupère la date du jour du dimanche de paques
'mais on ne la met pas dans le tableau puisque ça tombe forcément un dimanche
DatePaques = fPaques(AAnnee)
'ceux à date variable
AJF(8) = CDate(Format(DateAdd("d", 1, DatePaques), "dd/mm/yyyy")) 'Lundi de paques
AJF(9) = CDate(Format(DateAdd("d", 39, DatePaques), "dd/mm/yyyy")) 'Ascension (39 jours après paques)
AJF(10) = CDate(Format(DateAdd("d", 50, DatePaques), "dd/mm/yyyy")) 'Pentecôte (50 jours après paques)
End Sub

Merci pour votre contribution et la clarté de vos commentaires

MilesVorko Messages postés 1 Date d'inscription mercredi 24 décembre 2003 Statut Membre Dernière intervention 17 janvier 2004
17 janv. 2004 à 17:29

Merci pour ce code clair et très bien commenté. Chapeau bas.