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.