Excel toujours actif

[Patrick_35]

Bonjour à tous

Je lance Excel dans ce style

(setq xl (vlax-get-or-create-object "Excel.Application"))
(vla-put-visible xl 1)

 

Après toutes mes manip, je quitte Excel

(vla-quit xl)

 

Excel disparaît dans ma barre des tâches, mais j'ai la mauvaise surprise en lançant le gestionnaire de tâches de windows et en regardant dans le processus de le retrouver ??? :o

 

Comment faire pour le supprimer définitivement de la mémoire ??? :casstet:

 

Le soucis c'est quand j'arrête le pc, qu'excel est toujours actif, sauf si je termine le processus, mais ce n'est pas le top :mad:

 

@+

 

[Serge]

(setq excelApp (vlax-get-or-create-object "Excel.Application"))

(vla-put-visible excelApp 1)

...

(vla-quit excelApp)

(vlax-release-object excelApp)

(setq excelApp nil)

 

[Edité le 13/8/2004 par Serge]

[Patrick_35]

Bonsoir Serge

Merci de ta réponse. J'ai bien essayé le vlax-release-object et pour autocad, c'est nickel, on peut refaire d'autres relations sans problème. C'est dans l'environnement windows où sa pêche. D'ailleur, si tu fais un vla-put-visible excelapp 1 juste après un vla-quit excelapp et même après un vlax-release-object excelapp, tu le revois apparaître, sans une feuille vierge, juste l'appli, mais elle est toujours là :casstet:

 

@+

[Serge]

Salut,

 

Je n'ai pas de problème. Par contre, j'utilise (excp-put-visible excelApp 1) et non (vla-put-visible excelApp 1).

 

Est-ce que tu as importé la librairie (tlb)?

 

Serge

[Serge]

Wow,

 

Je suis devenu ceinture orange :-)

 

En passant, pour charger la librairie:

 

(vl-load-com)

(if (not excm-open)

(progn

(vlax-import-type-library

:tlb-filename

"C:\\Program Files\\Microsoft Office\\Office10\\EXCEL.EXE" ; olb file

:methods-prefix "excm-"

:properties-prefix "excp-"

:constants-prefix "excc-"

)

))

 

puis après, tu peux appeler (excp-put-visible ...)

 

Serge

[Patrick_35]

Salut

Merci, j'arrive aussi à importer mes librairies. Ce qui me dérange, c'est le chemin complet qu'il faut fournir. J'ai eu beau chercher dans les registres, je n'ai rien trouvé de convaincant comme clé,si avec des codes à rallonge, ce qui me fait penser que ce n'est pas forcément identique d'un passerelle à une autre (au fait, je suis sur NT4 avec un autocad 2000)

Pour ton excp-put-visible ..., quel est son interêt par rapport au vla-put-visible ... ?

Et je vois aussi que tu fais ta liaison directement sur l'excecutable, pas sur le ...8.olb d'excel (je ne me rapelle plus de son nom), et quel interêt ?, passer dune version à une autre et être sur que ça reste compatible ?

 

@+

[Serge]

Salut,

 

Pour le nom à fournir, je peux t'envoyer un fichier fas contenant la fonction (GETEXCELPATH) et qui te retournera l'information voulue, pour Windows95 à Windows XP et de Excel 5 à Excel 2003. Tu seras certains d'être compatible, peu importe la situation.

 

Pour ce qui est de vla-put-visible vs excp-put-visible, la première est liée tardivement (ligature tardive ou late binding) tandis que la seconde est liée tôt (early binding). Tu y gagne sen performance et, dans ce cas-ci, en résultat.

 

Serge

 

Note: Y a-t-il moyen de joindre des fichiers ou des images dans ce forum?

 

[Patrick_35]

Salut

Merci pour tes précisions

Pour ton fichier, si tu veux que d'autres personnes en profitent, tu peux, soit faire un lien depuis un site perso ou encore l'envoyer au webmaster qui le mettra dans la rubrique téléchargement membres, ou sinon, je t'envoi mon adresse en privé

Pour la photo, tu fais de même

 

@+

[Serge]

Salut,

 

hLe fichier est disponible a ttp://www.cadnovation.com/getExcelPath.fas

Je le laisse là jusqu'à vendredi.

 

Serge

[Serge]

Hum !

 

Scène 1, prise 2:

 

Le fichier est disponible a http://www.cadnovation.com/getExcelPath.fas

Je le laisse là jusqu'à vendredi.

 

Serge

[Patrick_35]

Merci beaucoup serge

 

@+

[Serge]

Au plaisir,

 

Suggestion:

(if (not getExcelPath) (load "getExcelPath.fas"))

(setq Excel_Info (getExcelPath))

(setq Excel_Path (cdr (assoc "path" Excel_Info)))

(setq Excel_OlbFile (cdr (assoc "olb" Excel_Info)))

(setq Excel_ExecFile (cdr (assoc "exe" Excel_Info)))

(if (not excm-open)

(progn

(vlax-import-type-library

:tlb-filename

Excel_OlbFile ; olb file

:methods-prefix "excm-"

:properties-prefix "excp-"

:constants-prefix "excc-"

)

 

Serge