Crédit : neptune@merdunord.fr
POUR x = 1 A 12 POUR i = 1 A 31 {"MOIS"+x,indChamp}[i]=DateEnCours..Jour+" "+DateVersJourEnLettre(DateEnCours) SI EstPair(NuméroDeSemaine(DateEnCours)) ALORS {"S"+x,indChamp}[i]..CouleurFond = VertPastel SI EntierVersJour(DateVersEntier(DateEnCours))= 6 ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = RougePastel FIN SI EntierVersJour(DateVersEntier(DateEnCours))= 7 ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = RoulePastel FIN nResultat = TableauCherche(gclJoursFeries:UneListeDeJoursFeries,tcLinéaire,"DATE_JF",DateEnCours,1) SI nResultat <> -1 ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = GrisClair FIN SI DateEnCours = DateSys() ALORS {"MOIS"+x,indChamp}[i]..CouleurFond = RougeClair FIN DateEnCours..Jour += 1 SI DateEnCours..Mois <> MoisEnCours ALORS SORTIR FIN FIN MoisEnCours = DateEnCours..Mois FIN