Discussion :

[pascalT]

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 :

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

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

[bidou]

Code :

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

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';

[pascalT]

Merci bcp, ca marche