XL 2010 NetworkDays.INTL (nombre de jour ouvrée)

[BNJ-ANIOL]

Hello,

J'ai utilisée 3méthodes différentes , il y a uniquement la méthode [C1] qui fonctionne.
Malheureusement, elle ne m'intéresse pas, puisque je ne souhaite pas écrire dans le fichier excel, mais je veux justement récupérer la variable

A = NetworkDays.INTL([Date], [Date], 1, Range("a2:a12")) 'erreur : objet requis
B = Application.WorksheetFunction.NetworkDays.INTL([Date], [Date], 1, Range("a2:a12")) 'erreur de compilation : "argument non facultatif" , et NetworkDays est surligné
[C1] = "=NETWORKDAYS.INTL(Date,Date,1,a2:a12)"

Merci de votre aide

 

[sylvanu]

Bonjour BNJ-ANIOL,
sans fichier test, un peu au pif.
Essayez avec :

C = Evaluate(Application.NetworkDays.INTL([Date], [Date], 1, [a2:a12]))

Méthode Application.Evaluate (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

Ce qui m'étonne est que vous ayez deux fois la même valeur [Date].
Normalement on doit avoir [Date1],[Date2] sinon le résultat sera toujours nul.

 

[Dranreb]

Bonjour.
Repartez de ça :

MsgBox Application.WorksheetFunction.NetworkDays_Intl(Date, Date, 1, Range("a2:a12"))

 

[BNJ-ANIOL]

Bonjour BNJ-ANIOL,
sans fichier test, un peu au pif.
Essayez avec :

C = Evaluate(Application.NetworkDays.INTL([Date], [Date], 1, [a2:a12]))

Méthode Application.Evaluate (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

Ce qui m'étonne est que vous ayez deux fois la même valeur [Date].
Normalement on doit avoir [Date1],[Date2] sinon le résultat sera toujours nul.

Merci de vous intéressez au fond du problème, mais ce n'est pas vraiment la question initial ^^
Pour expliquer le rôle de ma formule, je ne souhaite pas calculer le nombre de jour ouvré entre deux dates, mais je veux simplement savoir si le jour en question est un jour ouvré.
Donc pour cette exemple, si je met 07/07/23 il me sortira 1 (car il y a qu'un seul jour ouvré entre le 07/07/23 et le 07/07/23 , et ce jour ouvré est le 07/07/23) ; en revanche, si je mets 08/07/23 il me sortira 0
Donc ma formule me sort 1 ou 0 et c'est le rôle que je lui demande

Maintenant, ce que je voudrais savoir, c'est pourquoi ma macro ne veut pas s'executer

 

[BNJ-ANIOL]

Bonjour.
Repartez de ça :

MsgBox Application.WorksheetFunction.NetworkDays_Intl(Date, Date, 1, Range("a2:a12"))

Rapide et efficace
Merci beaucoup !


Bon, c'est juste frustrant de voir que la génération de code n'a pas la même syntaxe que le VBA
Un simple _ au lieu d'un . -_-