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