Discussion :

[gtfz7405]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pgz]

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

[gtfz7405]

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

[SilkyRoad]

bonsoir

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

[pgz]

Bonjour.

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

PGZ