Delphi: Ajouter une feuille à un document Excel

Bonjour,
J'ai cherchais par tous main en vain, est ce que une âme charitable peut m'aider??

Je crée un document excel et je voudrait lui ajouter quelques feuilles voici mon code :

Code:

---

1 2 3

FExcel := excel.ApplicationClass.Create();// crée le document FWorkBook := FExcel.WorkBooks.Add(XlWBATemplate.xlWBATWorksheet); // crée un classeur dans le document ce classeur ne contient qu'une seule feuille??? FWorkSheet := FWorkBook.Sheets[TObject(1)] as WorkSheet;//je récupére l'unique feuille du document

---

Jusqu'a ici ca se passe bien mais quand j'essaie d'ajouter une deuxieme feuille ca bug !!!

Code:

---

FWorkBook.Sheets.Add(nil, FWorkSheet, TObject(0), XlWBATemplate.xlWBATWorksheet);

---

quelqu'un peut m'aider please ...

PS : Je développe en delphi 6 .Net

Maure

Bonjour et bienvenue sur les forums de Développez.com :D

A priori la TLB de ExcelXP indique que le troisième paramètre correspond à "Count", je n'ai pas vérifié mais je pense qu'il s'agit du nombre de pages à ajouter donc vu que tu passes 0 cela doit poser problème.

Citation:

---

Envoyé par Aka Guymelef

Bonjour et bienvenue sur les forums de Développez.com :D

A priori la TLB de ExcelXP indique que le troisième paramètre correspond à "Count", je n'ai pas vérifié mais je pense qu'il s'agit du nombre de pages à ajouter donc vu que tu passes 0 cela doit poser problème.

---

Merci pour ta réponse mais à la place de 0 j'ai mis 1 mais ça ne fonctionne pas non plus !!!!

En fait j'ai trouvé la réponse je la publie ...
ça peut toujours servir :

Code:

---

FWorkSheet := FWorkBook.Worksheets.add(System.Reflection.Missing.Value, System.Reflection.Missing.Value,TObject(1), XlSheetType.xlWorksheet) as Worksheet;

---

Maure