Discussion :

[breizh44]

Bonjour,

J'ai une TForm qui comprte plusieurs TEdit.
J'ai un bouton qui sert à rentrer les données saisies dans un tableau excel.

le code :

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
 
procedure TForm1.Button1Click(Sender: TObject);
Var
instance:variant;
fichier:string;
fichiersauv : string;
begin
instance:=CreateOleObject('Excel.Application');
instance.visible:=true;
fichiersauv := form1.Caption;
fichier := 'c:\Pricer NetSeenergy\Data\Pricer ns.xls';
instance.workbooks.open(fichier); // Ca bloque ici....
instance.visible := false;
instance.Cells[2,2] := numdevis.caption;
instance.Cells[6,2] := edit1.Text ;
instance.cells[4,2] := commercial.text;
instance.cells[2,5] := datedev.Date;
instance.cells[6,2] := edit1.Text ;
instance.cells[7,2] := edit2.Text ;
instance.cells[8,2] := edit3.Text + ' ' + edit4.Text;
instance.cells[8,3] := edit5.Text + ' '+ edit6.text;
instance.quit;
instance:=unassigned;
Form1.Close;
end;

Le problème est que mon programme plante et me déclare une erreur sur l'ouverture du fichier.

pourtant mon code ne semble pas démentiel....

Merci pour votre aide.

[Arsiezis]

Bonjour,

Question toute bête, ton fichier "Pricer ns.xls" existe bien? Et le chemin est bien correct?

[Montor]

par hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
instance.connect ;
instance.workbooks.open(fichier);

[cincap]

@ breizh44,

En effet, le fichier se trouve t'il ou tu l'indiques est t'il connecté ?

Sinon dans le nom du fichier, j'ai pris l'habitude depuis le Dos de l'écrire sans espace.

Ex :

fichier := 'c:\Pricer NetSeenergy\Data\Pricer ns.xls';

Mieux :

fichier := 'c:\Pricer NetSeenergy\Data\Pricer_ns.xls';

@+,

Cincap

[breizh44]

eh oui! c'est là qu'est le problème!

le message d'erreur est le suivant :
Exception déclenchée à $7652FBAE. Classe d'exception EOleException avec message 'La méthode Open de la classe Workbooks a échoué'. Processus pricerns.exe (3616)

[Montor]

tu peux regarder dans le faq delphi il y a une large partie consacré à l'Excel

[BuzzLeclaire]

Salut,

tu peux aussi t'inspirer de cela :

http://www.developpez.net/forums/d67...id-vers-excel/


Bye.

[cincap]

Bonjour à toutes et à tous,

@ breizh44, ta variable pour le nom de fichier est String, teste avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
Var
instance:variant;
fichier:AnsiString;
fichiersauv : string;
begin

@+,

Cincap

[archonte]

Salut,

perso j'utilise peu excel mais surtout la liaison vers Word, mais comme dans toutes les FAQ Word et Excel, j'ai pris l'habitude de décomposer en plusieurs variants, ce qui donnerait quelque chose comme :

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
var 
  ExcelApp, ExcelWbx, ExcelWbk : variant;
  fichier : String;
 
// Ouverture Excel
  try                                              // 1
    ExcelApp := GetActiveOleObject('Excel.Application');
  except
    ExcelApp := CreateOleObject('Excel.Application');
  end;
  ExcelApp.Visible := False;
 
// Ouverture d'un classeur
  ExcelWbx := ExcelApp.Workbooks;                    // 2
  ExcelWbk := ExcelWbx.Open(fichier);                // 3

(1) Pourquoi ne protèges-tu pas ton code d'ouverture d'Excel ?

(2 & 3) Est-ce qu'un ExcelWbk := ExcelApp.WorkBooks.Open(fichier); n'est pas un raccourci qui génère l'erreur ? (je n'ai pas Delphi sous la main pour vérifier !)

[breizh44]

Ca ne marche toujours pas!..........;

Le plus troublant, c'est que cela a fonctionné. Je remplissais bien le ficiher Excel en question. et puis, d'un coup, plus rien ne marche... A s'arracher les cheveux!

[breizh44]

Problème résolu. Le hic venait du fichier Excel qui à l'ouverture détectait du contenu illisible.

Merci pour toutes vos réponses et le temps passé sur mon problème!

bonnes fêtes à tous.