Discussion :

[adam0906]

salut

je cherche un module ou code permettant d'extraire le dernier jour du mois en cours -(du lundi au samedi), mais pas en dimanche.
exemple si le 30 septembre 2012 est un dimanche alors il m'affiche 29/09/2012 (un samedi pas de problème).

merci les proffesseurs

j'ai fais une recherche dans ce site et j'ai trouvé cette discussion http://www.developpez.net/forums/d58...ouvrable-mois/ mais j'ai pas sû comment la bricolé

merci encore

[nico84]

Bonjour,

Code :

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

1
2
D = DateSerial(Year(D), Month(D) + 1, 1)  '1er jour du mois suivant
if weekday(D)=1 then D=D-2 else D=D-1   'dernier jour du mois sauf si dimanche

Access a le bon gout de savoir que le 13e mois est en réalité le 1er de l'année suivante

[adam0906]

salut

merci de me repondre

ça marche pas pour moi, il affiche uniquement le dernier jour du mois en comptant le dimanche

vous pouvez l'essayer avec le mois de septembre 2012 ( car le 30 septembre est un dimanche et moi je veux que le resultat soit 29 sept 2012)

merci encore

[Jean-Philippe André]

salut,

le code proposé est sur la bonne piste, la seule erreur étant que Weekday retourne 1 pour dimanche par défaut, et non pas 7.

L'aide en ligne l'indique clairement

[nico84]

Exact il y a une petite erreur : c'est si le 1er jour du mois est un lundi (donc weekday=2) qu'on enlève 2

[adam0906]

merci de vos suivie

franchement j'ai perdu la piste

comment resoudre ça ?

merci encore

[Jean-Philippe André]

si on repart de ce qui t'a été proposé par nico84
on y ajoute juste

Code :

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

1
2
D = DateSerial(Year(D), Month(D) + 1, 1)-1  '1er jour du mois suivant -1 = dernier jour du mois en cours
if weekday(D,VbMonday)=7 then D=D-1   'si dimanche on remonte au samedi