Comment écrire dans une cellule la fonction SUM en vba?

Bonjour,

Mise-en-situation:

J'ai un classeur excel pour la suivi du temps d'employé.

Je dois créer une macro qui:

-Ajoute une feuille employé
-Modifie une cellule qui calcule la somme du temps travaillé par tous les employés pour y ajouter le nouvel employé.

Voiçi le code de la cellule:

Code:

---

=SUM(Employe12!CZ9;Employe13!CZ9;Employe14!CZ9;Employe15!CZ9;Employe16!CZ9;Employe17!CZ9;Employe18!CZ9)

---

Alors si j'ajoute un nouvel employé le code de la cellule devrait tenir compte de ce nouvel employé.

Pour ce faire j'ai fait ceci:

Code:

---

1 2 3

Sheets("Sommaire").Select Range("CZ9").Select ActiveCell.FormulaR1C1 = "=SOMME(Employe12!CZ9;Employe13!CZ9;Employe14!CZ9;Employe15!CZ9;Employe16!CZ9;Employe17!CZ9;Employe18!CZ9;Feuil4!CZ9)"

---

Cependant quand j'exécute la macro, je recois le message d'erreur suivant quand le code est rendu à ActiveCell.FormulaR1C1....:
"Erreur définie par l'application ou par l'objet".

Pourtant j'ai fait un test avec ce code-çi et tout fonctionne bien:

Code:

---

1 2	Range("DD34").Select ActiveCell.FormulaR1C1 = "=SUM(1,2)"

---

Pourquoi???

j'y ai été de cette facon:

Code:

---

Sheets("Sommaire").Range("E9").Formula = "=SUM(Employe12!E9,Employe13!E9,Employe14!E9,Employe15!E9,Employe16!E9,Employe17!E9,Employe18!E9,Feuil4!E9)"

---

J'ai du utiliser "Formula" au lieu de "FormulaLocal" et "=SUM" au lieu de "=SOMME", pourquoi? je ne sais pas...mais ce que je sais c'est que de cette façon ça fonctionne!!! :)

Merci

Que ce soit en local ou pas, il faut toujours utiliser la virgule comme séparateur, en VBA.

Ahhhhh! merci merci :)