Problème avec Excel et Delphi

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:

---

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.

Bonjour,

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

par hasard

Code:

---

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

---

@ 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 :

Citation:

---

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

---

Mieux :

Citation:

---

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

---

@+,

Cincap

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)

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

Salut,

tu peux aussi t'inspirer de cela :

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


Bye.

Bonjour à toutes et à tous,

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

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); Var instance:variant; fichier:AnsiString; fichiersauv : string; begin

---

@+,

Cincap

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:

---

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 !)

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!

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.