Discussion :

[pierre1923]

Bonjour tout le monde,

J'ai un petit problème avec les jours ouvrés.
J'ai un champ "date1" dans lequel j'ai une date et le champ "date2" qui doit correspondre à la date 3 jours ouvrés plus tard.

exemple : si "date1" = 08/08/2011 (lundi) alors "date2" = 11/08/2011 (jeudi)
mais si "date1" = 11/08/2011 (jeudi) alors "date2" = 16/08/2011 (mardi)

J'ai regardé sur les forums mais étant débutant avec access je ne comprend pas comment on utilise les fonctions proposées (http://access.developpez.com/faq/?pa...nip#NbJourOuvr) et j'esperai qu'il existe un code plus simple pour mon cas.

Merci d'avance à qui pourrait m'aider

Pierre

[marot_r]

Ton cas n'est pas plus simple que celui que résoud les fonctions de la FAQ.

Pour l'utliser il suffit que tu crées un nouveau module et que tu y copies les 3 fonctions.

Ensuite il va falloir ajouter un peu de code pour réaliser ce que tu veux voici comment je procéderai en ajoutant le code ci-dessous aux fonctions de calcul de FAQ.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
public function calculerProchainJour(prmDateDebut as date, prmNbJour as long) as date
   dim dateDebut as date:dateDebut=prmDateDebut
   dim dateFin as date:dateFin=dateAdd("d",prmNbJour,dateDebut)
 
   do while Work_Days(dateDebut, dateFin, true) < prmNbJour 'Calcule le nombre de jours ouvrable séparant les deux date en tenant compte des jour fériés français
       'Tant que le nombre de jours ouvrés calculés entre 2 dates n'est pas le nombre de jours attendus, essaye avec la date du lendemain.
       dateFin=dateAdd("d",1,datefin)
   loop
 
   calculerProchainJour=dateFin
end function

Après tu as juste à mettre : taDateCherchee=calculerProchainJour(taDateDebut, 3) pour calculer la date du prochain jours ouvré.

A+

[pierre1923]

Mille fois merci Marot c'est exactement ce que je cherchais ! je vais essayer de m'approprier le code ! mais ça fonctionne parfaitement