OleContainer + Excel

Bonjour,
je voudrais écrire dans les cellules d'une feuille Excel qui se trouve dans un OLEcontainer. Comment puis-je faire?

J'ai essayé :

Code:

---

1 2 3 4

vMSExcel := OLEContainer1.OleObjectInterface; vXLWorkbook := vMSExcel.Workbooks.Item(1); vWorksheet := vXLWorkbook.WorkSheets.Item(1); vWorksheet.Range['A1'].Value := '1';

---

Mais ca fonctionne pas.
Merci

Code:

---

1 2 3 4 5 6 7

var Classeur : _Workbook; Feuille : _Worksheet; begin OleContainer1.DoVerb(ovPrimary); Classeur := OleContainer1.OleObjectInterface as _Workbook; Feuille :=Classeur.Worksheets[1] as _Worksheet; feuille.Cells.Item[1,1].value:='toto';

---

Merci bcp, ca marche