Re : Calendrier VBA dynamique (palette de couleur d'évènements)
Banzai,
j'ai trouve ça pour la semaine!?
#Function ISO(r, Optional x As Boolean = False) 'Transcription ISO d'une date grégorienne.
Application.Volatile
Dim d2&, d3&, d4&
r = CDate(r)
d2 = r + 1 - Weekday(r, vbMonday)
d3 = DateSerial(Year(d2 + 3), 1, 1)
d4 = d3 + 1 - Weekday(d3, vbMonday) - (Weekday(d3, vbMonday) > 4) * 7
ISO = Year(d3) & "-W" & Format((d2 - d4) \ 7 + 1, "00") & IIf(x, "", "-" & Weekday(r, vbMonday))
End Function#