Discussion :

[Maure]

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 :

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

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 :

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

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

quelqu'un peut m'aider please ...

PS : Je développe en delphi 6 .Net

Maure

[Aka Guymelef]

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

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.

[Maure]

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

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 !!!!

[Maure]

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

Code :

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

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

Maure