slt

voici mon code pour ouvrir excel et crée un petit tableau en rentrant juste les titres des colonnes cependant j'ai une exception : "EIntfCastError" "interface non supporté" a l'excution de ExcelApplication1.connect;

pourquoi et que faire ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
    ExcelApplication1.Connect;
    MonClasseur:=ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
    MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
    MaFeuille.Cells.Item[1,1].Value := 'Label';
    MaFeuille.Cells.Item[1,1].Value := 'Type de Test';
    MaFeuille.Cells.Item[1,1].Value := 'Point A';
    MaFeuille.Cells.Item[1,1].Value := 'Point B';
    MaFeuille.Cells.Item[1,1].Value := 'Mesure';
    MaFeuille.Cells.Item[1,1].Value := 'Bon/Mauvais';
merci