[VBA] Calcul d'écart entre deux dates en jours ouvrés et ajout de formule

Bonjour à tous,

j'ai besoin d'effectuer un calcul de différence entre deux dates, en ne prenant en compte que les jours ouvrés et en excluant les jours fériés.

N'ayant pas trouvé de fonction VBA répondant à ce besoin, j'ai eu l'idée (bonne ou mauvaise) de passer par la fonction nb.jours.ouvres de Excel.
Pour se faire, je dois au milieu de mon code, remplir une cellule avec la formule suivante :

Code:

---

=nb.jours.ouvres(" & Cells(ligne, "M").Value & ";" & Cells(ligne, "N").Value & ";Paramètres!E2:E80)

---

J'ai essayé plein de technique (y compris celle issue de la macro enregistrée manuellement) j'ai une erreur

Citation:

---

Erreur d'exécution '1004' Erreur définie par l'application ou par l'objet

---

Pour info, j'ai essayé de mettre la formule avec

Code:

---

ActiveCell.Formula, Range("S2").FormulaR1C1, Range("S2").Formula, Range("S2").value

---

, j'ai la même erreur.

Si quelqu'un avait une fonction qui rempli déjà mon besoin, ou une idée pour que je puisse m'en tirer... ;)

Merci à tous.

Bonjour.


Quelques pistes pour t'aider.
Je suppose que tu as vérifié que la fonction était bien installée et diponible.
En VBA, si tu veux définir la formule, c'est soit FormulaLocal, soit en anglais : NETWORKDAYS(), je crois.
Les arguments ne doivent pas être renseigné en valeur mais en référence = adresses des cellules qui contiennent les dates. Je crois.
Tu dois définir la liste des jours fériés.

Sinon il y a des procédures qui font le calcul sans passer par la fonction Excel.

En espérant que cela t'aide,

PGZ

Merci de ta réponse pgz.

Pour des problèmatiques de déploiement de l'outil, je ne peux pas partir sur la solution de la dll :(

J'ai réussi toutefois à avancer sur le soucis en passant par Application.Run("nb.jours.ouvres", CDate(Cells(ligne, "B").Value), CDate(Cells(ligne, "C").Value))
Cela fonctionne, mais lorsque je veux passer les jours fériés, ben ça ne marche plus; à savoir, si je mets une date, cela fonctionne, dès que j'en mets plusieurs, j'ai une erreur 13.
Donc reblocage :'(

Pour les autres procédures existantes, je n'ai trouvé que Datediff qui ne correspond pas à mes besoins (elle ne prend pas en compte la notion de JO et de jours fériés)

Si quelqu'un à une idée.

Merci

bonsoir

Citation:

---

Pour se faire, je dois au milieu de mon code, remplir une cellule avec la formule suivante : =nb.jours.ouvres(" & Cells(ligne, "M").Value & ";" & Cells(ligne, "N").Value & ";Paramètres!E2:E80)

J'ai essayé plein de technique (y compris celle issue de la macro enregistrée manuellement) j'ai une erreur "Erreur d'exécution '1004' Erreur définie par l'application ou par l'objet"

Pour info, j'ai essayé de mettre la formule avec ActiveCell.Formula, Range("S2").FormulaR1C1, Range("S2").Formula, Range("S2").value, j'ai la même erreur.

---

tu dois utiliser FormulaLocal si tu écris ta formule en français


bonne soirée
michel

Bonjour.

Tu as en FAQ une procédure VBA ici
Cordialement,

PGZ