extraction textes lignes vers Excel

[alf_ze_cat]

Bonjour,

 

Je suis a la recherche d'une solution pour mon probleme :

 

Je cherche a extraire une multitude de textes lignes d'Autocad vers Excel. J'esperais faire un simple copier coller mais forcement, il veut m'inserer un OLE ...

Comment m'y prendre pour que chaque texte ligne different aille dans une case de mon tableau excel ?

 

[Bred]

Salut,

un petit lisp mettant les valeurs des textes dans des cases d'un tableau Excel (au format csv transposable en xls)

(defun c:txtxl ()
 (setq sel (ssget '((0 . "*TEXT")))
lst-txt nil)
 (if sel
   (repeat (setq x (sslength sel))
     (setq lst-txt (cons (cdr (assoc 1 (entget (ssname sel (setq x (1- x)))))) lst-txt))
     )
   )
 (setq nomfichier (getfiled "Nom du fichier Exportation"
		     (strcat (getvar "dwgprefix")
			     (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) " "
			     (menucmd "M=$(edtime,$(getvar,date),DD-MO-YYYY)"))"csv" 1))
 (setq f (open nomfichier "w"))
 (foreach n lst-txt (princ n f) (princ ";" f))    
 (close f)
 (princ)
)

 

par contre, si tu veux spécifier des cellules exactes, il faut plus programmer, en utilisant ces routines par exemple.

[alf_ze_cat]

merci pour ce petit lisp, je crois que j'avais trouvé la meme methode, mais en manuel :cool:

 

- transformation des textes lignes en textes multilignes (via express tools)

- selection de tout le texte

- copie dans un fichier txt

- ouverture de ce fichier txt via excel pour repartir les textes dans des cellules différentes,

- transposition en vertical

 

hip hop, l'affaire est dans l'sac ...

 

merci