NB JOURS OUVRES en Code VBA

[XLTOF]

Bonjour à tous

Je cherche un équivalent de la Fonction NB.JOURS.OUVRES en VBA.
Est-il possible d'appeller une fonction Standard d'Excel depuis VBA ?
Merci d'avance

A+

 

[BOISGONTIER]

Re : NB JOURS OUVRES en Code VBA

Bonjour,

x = [NB.JOURS.OUVRES(A1,B1)]

donne le nombre de jours ouvrés entre les dates de A1 et B1

d = #1/1/2006#
f = Date
x = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")

donne le nombre de jours ouvrés entre la date du jour et le 1er janvier 2006

d = #1/1/2008#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """,fériés)")

fériés est le nom d'un champ contenant les jours fériés

x = "MOIS.DECALER(""" & [A1] & """,3)"
z = Evaluate(x)


JB
Formation Excel VBA JB

 

[soenda]

Re : NB JOURS OUVRES en Code VBA

Bonjour le fil, XLTOF, Boisgontier

x = [NB.JOURS.OUVRES(A1,B1)]
donne le nombre de jours ouvrés entre les dates de A1 et B1

Super la concision

merci JB

Toutefois j'ai dû utiliser le nom anglais pour que ça marche dans un module (chez-moi)

x = [NETWORKDAYS(A1,A2)]

A plus

 

[XLTOF]

Re : NB JOURS OUVRES en Code VBA

Merci a vous.
C'est toujours surprenant la rapidité des réponses sur ce forum ! ;-)

petite question complémentaire :
Dans la formule indiquée x =[NETWOKDAYS =(A1, B1)]
Est-ce que je peux remplacer les références aux cellules (A1, B1) par des variables ?

Merci d'avance

A bientôt

 

[soenda]

Re : NB JOURS OUVRES en Code VBA

Re,

Est-ce que je peux remplacer les références aux cellules (A1, B1) par des variables ?

JB a donné la réponse à cette question, dans son post ci-dessus (utiliser Evaluate)

A plus

 

[seiwa]

Re : NB JOURS OUVRES en Code VBA

Bonsoir,
Dans ce cas là:
d = #1/1/2008#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """,fériés)")

Comment déclarer plusieurs date fériés dans fériés?

merci