Bonjour a tous,
pour ouvrir un fichier Excel existant , j'utilise ce bout de programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var Tab: _workbook;
    Feuil: _worksheet;
    i,j:Integer;
    S:shortstring;
      StrSaveFile: string;
      IntFileType: integer;
      SaveDialog: TSaveDialog;
 
begin
   try
            SaveDialog := TSaveDialog.Create(nil);
            SaveDialog.Filter := 'Excel files |*.XLSX';
            SaveDialog.Execute;
            IntFileType := SaveDialog.FilterIndex;
            StrSaveFile := SaveDialog.FileName;
            if Length(StrSaveFile) = 0 then
              Exit
            else
              StrSaveFile := Trim(SaveDialog.FileName);
 
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[0]:=False;
 
            Tab:=ExcelApplication1.Workbooks.Open(StrSaveFile,False,False,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
 
 
          feuil:=Tab.Worksheets[1] as _worksheet;

chez moi , j'ai office 2013 installé , donc pas de problème.
mais , chez un de mais client qui a office 2007 installé , je ne peut pas ouvrir le fichier excel.

y a t il une modification a reporter sur mon code ?
est comment trouvé les bon paramaitre pour l'ouverture excel , avec cette instruction:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Tab:=ExcelApplication1.Workbooks.Open(StrSaveFile,False,False,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

Merci a tous.