Bonjour,

J'ai un problème avec mon appli Delphi et excel.
En effet, sur certains postes utilisateurs le message d'erreur "Interface non supportée" appraraît lorsque j'ouvre mon modèle de feuille excel.

En regardant sur le forum, j'ai compris qu'il y avait un problème de version avec excel. J'ai donc remplacer tous les "Excel97" par des "ExcelXp" ... mais rien y fait !!

Mon code est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses
  DBTables,  IdGlobal, DB, DateUtils, ExcelXP, SysUtils, Variants, Types, Gauges,
  StdCtrls, Forms, uDataModule, Dialogs ;
 
type
 
  {-- Class EXCEL REPORT --}
  TxlsRptDR = class
    ExcelApp  : TExcelApplication;
    rng       : ExcelXP.ExcelRange;
    xlsBk     : ExcelXP.ExcelWorkbook;
    xlsSht    : ExcelXP.ExcelWorksheet;
et la suite ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    Filename := ExtractFilePath(paramstr(0)) + 'Excel\Shipping_DRSchedule.xls' ;
    ShowMessage('1');
 
    xlsBk := ExcelApp.Workbooks.Open(Filename, emptyParam, True, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, 0);
 
    ShowMessage('2');
Mes utilisateurs voient le message "1" mais jamais le "2" !!!
Pouvez-vous me dire ce que je fais de travers car je sèche ?!!?
Merci beaucoup,
hathor