lisp vers exel 10

[MAC]

Bonjour à tous!

j'essai d'exporter des donnees avec exel 10 ('10.0.2614.0') et un message d'erreur du type:

"Erreur Automation. Aucune description n'a été entrée."

Apparait.

avec excel 9 je réussis la manip avec succes.

Porqué?

 

merci d'avance.

 

Le code:

 

(vl-load-com)

 

 

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

(vlax-import-type-library

 

;excel 10

:tlb-filename "C:/Program Files/Microsoft Office/Office10/Excel.exe"

:methods-prefix "xl-"

:properties-prefix "xlp-"

:constants-prefix "xlc-")

(setq xl_wks (vlax-get xl "Workbooks"))

 

;Ouvrir le fichier "".xls dans le dossier

(setq xl_fichier (xl-open xl_wks "D:/Acad_/Prototype.xls"))

 

;Choisir la feuille metre1 du classeur

(setq xl_classeur (vlax-get xl_fichier "Sheets"))

(setq xl_feuille (xlp-get-item xl_classeur "metre1"))

 

;Choisir la cellule sélectionnée de la feuille

(setq vcel (xlp-get-range xl_feuille "A10"))

 

;Ecrire une variable dans la cellule sélectionnée précedement

(xlp-put-value vcel "valeur");ici "Erreur Automation. Aucune description n'a été entrée."

 

;Sauvegarder le fichier

(xl-saveas xl_feuille "D:/Acad_/Prototype_modif.xls")

 

(xl-close xl_wks)

[Tramber]

D'autres routines d'initialisation sont necessaires on dirait.

 

Je te conseille les routines gratuites de http://www.ikozmos.com/

[Patrick_35]

Salut

Je pense que cette routine pourrait te dépanner

C'est l'emplacement du fichier qui ne doit pas être bon

 

@+

[MAC]

merci Tramber de quoi bosser ce weeck end.

Tres riche!

 

merci Patrick_35

j'ai lancé la routine le chemin etait bon (j'avais vérifié) mais c'est le "xp" qui m'inquiete.

Est-ce qu'il a de l'importance?

"C:\\Program Files\\Microsoft Office\\Office10\\Excel.exe" "XP"

 

je fais le retour si réponse trouvée.

 

 

Patrick_35 de Rennes?

 

 

[Patrick_35]

Le xp est la version d'excel, c'est juste à titre d'info. L'avantage de cette routine, c'est que ton prog pourra tourner quelle que soit la version d'excel

Tu peux faire par exemple

:tlb-filename (car Liaison_Excel)

 

Patrick_35 de Rennes?

Oui, mais un peu au sud, pas très loin des poulets (faut faire gaffe à la grippe ;) )

 

@+

 

[MAC]

il faut remplacer la fonction "xlp-put-value" par "xlp-put-value2"

ce qui donne:

;Ecrire une variable dans la cellule sélectionnée

(xlp-put-value2 rng "valeur")

 

beaucoup de choses sur http://www.ikozmos.com

 

Merci a tous et bon week!

 

De Rennes aussi, je rentre maintenant de st nazaire.

Faut eviter les poulets . rrrh! rrh! rh!