TExcelApplication : erreur en quittant le programme

'jour

J'utilise un TExcelApplication pour ouvrir un classeur, récuperer la valeur d'une case, puis la rafraichir de temps en temps avec un timer.
Quand je quitte mon programme, je disconnect le TExcelApplication dans le OnClose de ma fiche principale, le classeur est déjà refermé, mais j'ai une exception EAccessViolation, qui n'arrive pas si je ne vais pas chercher la valeur de la case (le texcelapplication est ouvert automatiquement). En debug, c'est la fenetre CPU qui s'affiche, impossible donc de savoir quelle ligne provoque l'erreur.

Des idées d'où peut venir l'erreur ? Ou au moins comment la localiser ?

sur le onclose, après avoir fait ton disconnect, essaye

Code:

---

TExcelapplication1.free;

---

bonne journée !

Le TexcelApplication est inclus dans la fiche à la conception, il est pas censé ête libéré automatiquement ?

(j'ai pas trop bossé sur les fiches)

J'ai toujours pris l'habitude de faire un .free quand je pilotais Excel mais c'est vrai que je créais le composant dynamiquement, il n'était pas posé sur la fiche...

et si tu le créé dynamiquement, avec le .free ça fonctionne ?

(voir FAQ pour ça)

J'ai plus l'occaze de tester, l'erreur arrive maintenant plus tot. J'appelle une fonction et l'erreur AccessViolation apparait avant meme que je rentre dans le corps de la fonction ! (en debug pas à pas : l'erreur se produit quand je passe du begin à la 1ere ligne de la fonction).

La fonction en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function TForm1.FautResize(ligne : array of TInfoCell) : boolean; begin result := false; if high(ligne) < 0 then begin result := true; exit; end; if ligne[high(ligne)].affecte = true then result:= true; end;

---

Je comprends plus rien, au secours !

Salut,
ton tableau est initialisé ?
Ce type d'approche devrait être suffisant pour fermer Excel, le composant étant effectivement libéré par la forme contenant le composant.

Code:

---

1 2 3 4 5

ExcelWorksheet1.Close; ExcelWorksheet1.Disconnect; ExcelWorkBook1.Close; ExcelWorkBook1.Disconnect; ExcelApplication1.Quit;

---

Que souhaites-tu tester avec ceci ?

Code:

---

if high(ligne) < 0 then

---

C'est pour tester si le tableau contient au moins 1 élément.
Pour ce qui est des erreurs, elles ont disparu en transmettant le paramètre ligne par adresse (var). Plus d'erreur depuis...