Discussion :

[bigounet]

Bien le bonjour à tous.
Je recherche le moyen, la manière pour afficher dans un textbox, la date du dernier jour ouvrable du mois.
J'ai bien trouvé du code dans ceci : http://www.developpez.net/forums/d13...e-jours-ferie/

Mais, je ne sais pas comment faire pour afficher la date que j'ai besoin dans mon textbox.
Comme simple exemple, nous sommes le 19/04/2014 et dans mon textbox, je souhaiterais avoir ceci : [30/04/2014]
Tout en calculant si le dernier jour est férié. Encore un exemple, si mon dernier jour du mois est un lundi et que ce lundi est férié, je devrais avoir la date du vendredi précédent.
Je sais que je deviens compliqué mais je ne trouve pas ma solution.
En vous remerciant tous et toutes pour votre aide.

Francis

[ClaudeLELOUP]

Bonjour,

Voici ici comment te constituer facilement une table des jours ouvrés dans ton entreprise.

http://www.developpez.net/forums/d14...s/#post7762194

Avec la table tDatesTravail, voici une fonction, qui connaissant une date, rend le dernier jour ouvré du mois de cette date

Code :

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

1
2
3
4
5
Public Function DerOuvre(UneDate As Date) As Date
 Dim Lendemain As Date
   Lendemain = DateSerial(Year(UneDate), Month(UneDate) + 1, 1)
   DerOuvre = DMax("Travail", "tDatesTravail", "Travail<#" & Format(Lendemain, "mm/dd/yyyy") & "#")
End Function

En fait, on construit le 1er du mois suivant et on cherche la veille ouvrable.

Appliquée dans un formulaire :



Davantage de détails dans ce document : http://claudeleloup.developpez.com/t...plic-ploc/#LIV

[bigounet]

Un grand merci.