Discussion :

[champoul]

Bonjour à tous,

J'espère avoir posté dans la bonne partie, j'ai beaucoup hésité avec le forum 'composant'

J'ai un 'gros' problème avec l'utilisation de TExcelApplication sur lequel je bloque depuis... ah bah tiens 4H à mon top !
J'ai pourtant bien regardé le tuto de la FAQ, mais rien à faire ça ne veut pas marcher

Voilà l'extrait de code qui plante:

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
30
31
32
33
34
35
36
37
38
   [...]
 
   uses  [...] Excel2000 [...];
 
 
 
procedure TFrmResultat.btn_convertClick(Sender: TObject);
 var
   filename        :  textFile;
   fichierexcel    : String;
   fichierexcelole : OleVariant;
   lignetemporaire : String;
   datetemporaire  : TDateTime;
   MonClasseur     : OleVariant;
   MaFeuille       : OleVariant;
   LCID            : integer;
 begin
   LCID := GetUserDefaultLCID;
   // On ouvre le fichier texte de résultat
   assignFile(filename,fichier);
   reset(filename);
   // si le fichier excel n'est pas encore créé on le copie dans le dossier de la campagne
   fichierexcel := 'c:\Scenario\Campagnes\' + ComboBoxResultat.Text + '\Resultats\Essai.xls';
   if not(FileExists(fichierexcel)) then
       CopyFile(PChar('C:\Scenario\Scenars\Excel\Essai.xls'),
               PChar(fichierexcel),
               False);
 
    // On se connecte à excel et on ouvre le fichier excel
    ExcelApplication1.Connect;
    MonClasseur:= ExcelApplication1.Workbooks.Open(fichierexcel,
                  EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,LCID);
 
 
    ExcelApplication1.Visible[LCID] := true;

L'execution de ce code provoque un EAccessViolation à l'adresse 0x000000. L'erreur survient sur la ligne ExcelApplication1.Workbooks.Open()

Quelques petites précisions:
*Le chemin fichierexcel est correcte, j'ai vérifié
*Par rapport à tous les exemple sque j'ai pu trouver sur le net, delphi me demande 2 paramètres de plus dans la fonction open
*Je suis 'débutant' delphi et peut habituer à ce type d'outils
*A toute fin utile: Excel est dans sa version 2000, l'OS est un windows XP, et j'utilise la version 7 professionnel de delphi

Je vous remercie par avance pour votre aide et serai eternellement reconnaissant à mon ( mes ?) sauveur(s)

[champoul]

Si quelqu'un vient de tout se taper à lire pour essayer de m'aider, je suis désolé, je viens de trouver la solution

Au lieu d'utiliser la fonction open, j'utilise la fonction _open de workbook, et ça marche au poil Et là j'ai bien le nombre de paramètres "classiques"..

Encore merci à ceux qui ont lu mon message