Discussion :

[CtrlCmpt]

Bonjour,

Je sollicite votre aide pour un petit souci que je rencontre.

J'ai une Macro qui me permet de faire des calculs de jours (J+1, J+2, J+3 ....) à partir de la date du dernier jour ouvrable du mois précédent.

Cette Macro prends en compte les week-end mais j'aimerai aussi qu'elle prend en compte les jours fériés aussi.

J'ai créé une feuille que j'ai nommé "Fériés" comme on m'a indiqué, mais je ne sais pas comment intégrer ça à la Macro.

Pouvez-vous m'aider SVP ?

Fichier en PJ.

voici la Macro que j'ai actuellement:

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
Dim NomFic As String
NomFic = ThisWorkbook.Name
ThisWorkbook.Names.Add "DateRef", "=SERIE.JOUR.OUVRE(SERIE.JOUR.OUVRE(DATE(" _
   & Mid$(NomFic, Len(NomFic) - 7, 4) & "," & Mid$(NomFic, Len(NomFic) - 9, 2) + 1 & ",0),1),-1)"
Feuil1.[K6:K83].FormulaR1C1 = "=IF(RC10<>"""",SERIE.JOUR.OUVRE(DateRef,SUBSTITUTE(RC10,""J"",""""),),"""")"
End Sub

Cordialement