Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

NB JOURS OUVRES en Code VBA

XLTOF

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Accro
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)
Code:
x = [NETWORKDAYS(A1,A2)]
A plus
 

XLTOF

XLDnaute Nouveau
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
 

seiwa

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
7
Affichages
170
Réponses
7
Affichages
459
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…