Bonjour,

g le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
vXLWorkbook, vMSExcel, vWorksheet : variant;
vFileName : AnsiString;
index : Integer;
 
begin
vMSExcel := CreateOleObject('Excel.Application');
vFileName := 'D:\Excel.xls';
vXLWorkbook := vMSExcel.Workbooks.Open(vFileName);
vWorksheet := vXLWorkbook.WorkSheets['BASE DE DONNEES'];
vWorksheet.getCellByPosition(3,3).SetString(Table1.Fields[index].AsString);
vMSExcel.Visible := true;
end;
Avec ComObj dand le Uses
Delphi me génère une erreur du type : "Méthode 'GetCellByPosition' non supportée par l'objet automation"
Comprend pas ... :