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