Discussion :

[bolloche]

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 +

[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 :

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

=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 J'ai ça dans un code mais je ne parviens pas (plus ?) à le faire fonctionner. Un référence absente ?

[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.

[cafeine]

Hello,

schématiquement :

Code :

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

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

[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 +

[ouskel'n'or]

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 :

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

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
(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