Re : calendrier jours ouvrés sans weekend
Oui, Staple, j'avais zappé car tu as fait un Edit de ton post précédent...
Un immense MERCI itou...
j'ai aussi un bout de code comme ceci :
Sub jferies()
Dim auj As Date, dateVendSaint As Date, datepaques As Date, dateascen As Date, datepente As Date, datejan As Date
Dim date1mai As Date, date8mai As Date, date14j As Date, date15a As Date, date0111 As Date, date1111 As Date, datenoel As Date, date26d As Date
dim num As Integer
mum = Year(Date)
auj = Date
'calcul VENDREDI SAINT
dateVendSaint = IIf(Paques(mum) - 2 > auj, Paques(mum) - 2, Paques(mum + 1) - 2)
'calcul LUNDI DE PAQUES
datepaques = IIf(Paques(mum) > auj, Paques(mum) + 1, Paques(mum + 1) + 1)
'calcul ASCENSION
dateascen = IIf(datepasfor + 38 > auj, datepasfor + 38, Paques(mum + 1) + 38)
'calcul LUNDI DE PENTECOTE
datepente = IIf(datepasfor + 49 > auj, datepasfor + 49, Paques(mum + 1) + 49)
'calcul 1er JANVIER
datejan = IIf(DateSerial(mum, 1, 1) > auj, DateSerial(mum, 1, 1), DateSerial(mum + 1, 1, 1))
'calcul 1er MAI
date1mai = IIf(DateSerial(mum, 5, 1) > auj, DateSerial(mum, 5, 1), DateSerial(mum + 1, 5, 1))
'calcul 1er MAI
date8mai = IIf(DateSerial(mum, 5, 8) > auj, DateSerial(mum, 5, 8), DateSerial(mum + 1, 5, 8))
'calcul 14 JUILLET
date14j = IIf(DateSerial(mum, 7, 14) > auj, DateSerial(mum, 7, 14), DateSerial(mum + 1, 7, 14))
'calcul 15 AOUT
date15a = IIf(DateSerial(mum, 8, 15) > auj, DateSerial(mum, 8, 15), DateSerial(mum + 1, 8, 15))
'calcul 1er NOVEMBRE
date0111 = IIf(DateSerial(mum, 11, 1) > auj, DateSerial(mum, 5, 8), DateSerial(mum + 1, 5, 8))
'calcul 11 NOVEMBRE
date1111 = IIf(DateSerial(mum, 11, 11) > auj, DateSerial(mum, 11, 11), DateSerial(mum + 1, 11, 11))
'calcul NOEL
datenoel = IIf(DateSerial(mum, 12, 25) > auj, DateSerial(mum, 12, 25), DateSerial(mum + 1, 12, 25))
'calcul 26 DECEMBRE
date26d = datenoel + 1
End Sub
Public Function Paques(ByVal an As Integer) As Date
Dim a As Integer
a = (204 - 11 * (an Mod 19)) Mod 30 + 22
Paques = DateSerial(an, 3, a + 6 + (a > 49) - (an + an \ 4 + a + (a > 49)) Mod 7)
End Function
Bizzzz
C@thy