requete de date sans les week-end

Version imprimable

14/05/2008, 16h25
bolloche

requete de date sans les week-end

Bonjour a tous,

Je voudrais effectuer une requete entre deux dates et connaitre ensuite le nombre de jours travailles entre ces dates donc d'exclure les week-end (management du personnel).

Je suis plus que debutant et malgre quelques cours lus ici ou la sur internet je ne sais pas vraiment comment m'y prendre.
Si quelqu'un connait une fonction ou une procedure, ou une idee qui pourrait m'oriente je suis preneur.

Merci d'avance et pour les accents avec un clavier anglais c'est pas evident.

A +
14/05/2008, 17h05
ouskel'n'or

Le mieux est de passer par Excel. En A1 la date la plus ancienne, en B1 la plus récente. La formule

Code:

=NB.JOURS.OUVRES(A1;B1)

Avec NB.JOURS.OUVRES, tu peux exclure les jours fériés et déterminer si le premier jour de la semaine est un lundi ou un dimanche. Jète un oeil dans l'aide pour l'utiliser.
En VBA, tu as Workday. Les paramètres sont les mêmes sauf pour les jours fériés (enfin, je crois me souvenir de ça...)
En cas de besoin, la réponse a déjà été donnée plusieurs fois sur le forum. Si tu as un pb pour utiliser une formule et que tu dois absolument passer par VBA, je regarderai si je trouve l'URL.
A+

PS - Bienvenue sur le forum ;)

Edit
Pour workday je ne suis sûr de rien :oops: J'ai ça dans un code mais je ne parviens pas (plus ?) à le faire fonctionner. Un référence absente ?
14/05/2008, 18h13
bolloche

Merci beaucoup pour cette reponse si rapide,
en effet je dois obligatoirement passer par vba pour effectuer cet operation.
si tu connais les liens url ca m'interesse vivement.
A bientot et merci encore.

Hello,

schématiquement :

Code:

1
2
3
4
5
6
7
count = 0
for i = date1 to date2
 if weekday(i,vbMonday)<=5 then
   count = count + 1
 end if
next i
msgbox count

14/05/2008, 20h04
bolloche

ok merci je pense que ce problem est resolu mais si tu repasses par la cafeine jaimerais bien comprendre la formule que tu m'as donne par exemple pour on commence par lundi et pas par dimanche et en bref comment fonctionne cette fonction.

Autrement merci encore.

A +

Pour ajouter des jours ouvrés à une date pour connaître une échéance, par exemple, tu peux également utiliser l'utilitaire d'analyse et Workday
Charger la macro complémentaire "Utilitaire d'analyse"
Dans L 'Editeur VB -> Ajouter atpvbaen.xls en référence au projet
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub JoursOuvresAjouterVB() Dim LaDate As Double, NewDate As Date LaDate = CDbl(CDate("16/03/2007")) 'ou 'LaDate = CDbl(Cells(2, 1)) 'ou 'LaDate = CDbl(Date) 'date dans 5 jours ouvrés après LaDate NewDate = Format(Workday(LaDate, 5), "dd/mm/yyyy") MsgBox NewDate End Sub
A tout hasard et parce que j'ai compris pourquoi workday ne fonctionnait pas :aie:
(Ne s'utilise donc pas pour avoir le nombre de jours ouvrés entre deux dates)
Une adresse qui peut t'être utile si tu as à déduire les jours fériés : http://www.developpez.net/forums/sho...ours+ouvrables