Inserer une formule (Longue) dans une cellule via VBA

Bonjour,

Dans la cellule L2, je souhaite inserer la formule suivante via VBA:

Code:

---

1 2 3

=ENT((H2-DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))/7)*5+JOURSEM(H2) -JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))>JOURSEM(H2);5) -SI(JOURSEM(H2)=7;1)+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))<>1;1)-1

---

Cette formule me sert à calculer le nombre de jours ouvré entre aujourd'hui et une date se situant en H2.

Lorsque j'essai de récupérer le code via l'enregistreur de macro, cela ne fonctionne pas : " N'as pas pu enregistrer" (la formule est surment trop longue).

Comment puis je raccourcir cette formule pour que l'enregistreur me genere le code ou alors quel est le code VBA à entrer pour que cela genere cette formule dans L2?

Merci pour votre aide!

Ce qui simplifierait les chose serait d'utiliser FormulaLocal mais c'est mal vu car utilisé sur un pc où une version d'excel autre que française, ça ne fonctionnerait pas :(
Voici toujours

Code:

---

1 2 3

Cells(1, 2).FormulaLocal = "=ENT((H2-DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))/7)*5+JOURSEM(H2)" & _ "-JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))>JOURSEM(H2);5)" & _ "-SI(JOURSEM(H2)=7;1)+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))<>1;1)-1"

---

Pour utiliser Formula tout court, tu remplaces MAINTENANT, jour, mois, annee, joursem par leurs versions anglaises ;)

Edit
Avec formula, ça donne ça

Code:

---

1 2 3

Cells(2, 2).Formula = "=INT((H2-DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))/7)*5+WEEKDAY(H2)" & _ "-WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))+IF(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))>WEEKDAY(H2),5)" & _ "-IF(WEEKDAY(H2)=7,1)+IF(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))<>1,1)-1"

---

Bonne journée

J'ai utilisé formulalocal. Toutes les personnes qui utiliseront la macro ont obligatoirement la meme version Excel que moi.

Merci :king: