Patrick_35

Oui, et c'est bien pour ça qu'a l'origine je pars sur Excel.exe. Par contre, l'excel10.olb est sur le lisp dont je me suis inspiré (et qui m’a bien indiqué les différentes versions) pour faire celui-ci et dans les tests, Oli553 est sur une version 2003, donc dans le doute, j'ai préféré le laisser @+

Laurent, on reconnaît les vieux routiers ;) Je mettrais juste un bémol à propos des PLT Il faut être très vigoureux dans sa gestion des dessins et des plt qui en découlent. On a vite fait d'imprimer une vieille version Il faut aussi que le PLT se trace correctement sur un autre type de traceur si on le partage, ce qui n'est pas toujours évident Et parfois, des objets OLE ne s'impriment correctement que s’ils sont envoyés au traceur par le biais d'un plt. J'ai eu l'expérience avec des wipeouts qui ne s'imprimaient pas correctement avec un plt mais en direct avec Autocad :( @+

Je ne comprends pas ta remarque au sujet de Serge pour office XP :casstet: @+

Salut Il pourrait être intérressant dans ton lisp d'avoir qu'un seul argument à saisir du type ARG_CHEMIN+ARG_FILENAME au lieu de deux et aussi d'y intégrer la possibilité d'avoir un getfiled (par le biais d'un "~" par exemple) @+

Voici un lisp qui détermine le fichier pour faire une liaison avec excel et qui donne sa version Un (car (Liaison_Excel)) retourne le Fichier pour faire la liaison un (cadr (Liaison_Excel)) retourne la version d'excel @+ (defun Liaison_Excel(/ Chemin_Excel Environ Version_Excel) (if (setq Chemin_Excel (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" "Path")) (progn (foreach Environ (list "SYSTEMROOT" "WINDIR" "WINBOOTDIR" "SYSTEMDRIVE" "USERNAME" "COMPUTERNAME" "HOMEDRIVE" "HOMEPATH" "PROGRAMFILES") (if (vl-string-search (strcat "%" Environ "%") Chemin_Excel) (setq Chemin_Excel (vl-string-subst (strcase (getenv Environ)) (strcat "%" Environ "%") Chemin_Excel)) ) ) (if (= (vl-string-elt Chemin_Excel (1- (strlen Chemin_Excel))) 92) (setq Chemin_Excel (strcat Chemin_Excel "Excel.exe")) (setq Chemin_Excel (strcat Chemin_Excel "\\Excel.exe")) ) (cond ((findfile (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) ) ((findfile (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) ) ((findfile (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) ) ) (cond ((= (strcase (vl-filename-base (vl-filename-directory Chemin_Excel))) "OFFICE11") (setq Version_Excel "2003") ) ((= (strcase (vl-filename-base (vl-filename-directory Chemin_Excel))) "OFFICE10") (setq Version_Excel "XP") ) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL8") (setq Version_Excel "97") ) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL9") (setq Version_Excel "2000") ) ) (if (not Version_Excel) (setq Chemin_Excel nil) ) ) ) (list Chemin_Excel Version_Excel) ) (ps : Merci à Maximilien pour son aide)

C'est tellement simple que j'ai honte, m'enfin :red: Bon, je le poste dans les routines lisp en débugé @+

Maximilien, Je ne comprends pas où se situe l'erreur En décomposant le Lisp (if (setq Chemin_Excel (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" "Path")) Je récupere le chemin dans les registres (if (= (vl-string-elt Chemin_Excel (1- (strlen Chemin_Excel))) 92) (setq Chemin_Excel (strcat Chemin_Excel "Excel.exe")) (setq Chemin_Excel (strcat Chemin_Excel "\\Excel.exe")) ) J'ajoute Excel.exe dans le chemin (et sur un A2000, il n'y a pas les deux \\ dans le chemin) (cond ((findfile (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) ) ((findfile (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) ) ((findfile (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) ) ) Je regarde si Excel8.olb, Excel9.olb ou Excel10.olb existe sur le disque et je remplace alors dans le chemin --> Excel.exe par le .olb, sinon, je ne change rien (cond ((= (vl-filename-base (vl-filename-directory Chemin_Excel)) "OFFICE11") (setq Version_Excel "2003") ) ((= (vl-filename-base (vl-filename-directory Chemin_Excel)) "OFFICE10") (setq Version_Excel "XP") ) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL8") (setq Version_Excel "97") ) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL9") (setq Version_Excel "2000") ) ) Et là, je détermine la version d'Excel @+

Regarde cette ligne :tlb-filename "C:/Program Files/Microsoft Office/Office/Excel8.olb" Et adapte-la avec ta version d'excel (fichier Excel8.olb ou Excel9.olb ou Excel10.olb ou encore Excel.Exe, et recherche de préférence dans cet ordre) ps : Le deuxième lien que je t'ais proposé est justement pour déterminer la version d'excel. Il est pour l'instant en test et dès que c'est fini, je le mettrai dans les routines Lisp @+

Merci à vous tous pour votre aide Pour maximilien, je ne comprends pas où ça plante Et en faisant un (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" "Path") ça donne quoi ? @+

Bonjour à tous Chouette idée Tramber et je vais faire mon possible pour venir, mais je ne promets rien pour l'instant @+

Salut Une solution donnée par Didier (setq p (getpoint)) (command "_.pline" p (while p (command (setq p (getpoint p))))) @+

Salut Je pense que ce lien et celui-ci devrait t'intéresser @+

Salut, j'ai trouvé Il faut bien sûre charger le lisp textmask.lsp et ensuite par exemple (command "_.wipeout" "_frame" "_off") (acet-textmask-make-wipeout (car (entsel)) 0.35) @+

Pas de solution miracle malheureusement, mais ça peut aussi se révéler utile, comme de récupérer des coordonnées via une boite de dialogue et que c'est du texte qui est saisi @+

et pour le draworder par exemple (command "_.draworder" (car (entsel)) "" "_f") @+

Salut C'est une commande des express tools, donc pour l'appeler un (c:textmask) @+

Mon pauvre Tramber, je t'envoi mon infirmière si tu veux http://smileys.smileycentral.com/cat/36/36_1_40.gif Pour Serge1591 As-tu bien suivi la procédure que t'as indiqué Tramber, à savoir un copier/coller puis un load du fichier ?

Pour erbe En faisant la mise en page de la première présentation, puis un copier pour les nouvelles @+

Il n'y a pas de honte à avoir, on répond aussi sur des questions encore plus simple que celle que tu as posé Un simple merci suffit amplement @+

Salut, Il y a une manière de connaître le type de chaîne avec la fonction type ex : (type "toto") retourne STR ex : (type 123) retourne INT @+

Merci de ta contribution fhervet et de m'avoir indiqué un bug (bien que ça fonctionne sur ma 2000, m'enfin, c'est corrigé.) Donc, c'est OK sur 97 et 2000, reste à voir pour XP et 2003 @+

J'ai eu exactement la même réaction que toi Bonus, et ce n'est pas les accrobj J'ai fait le test sur une poly fermé avec un décalage > à la plus grande distance, sur une ligne plus deux ou trois autres, mais le lisp tient la route Serge1591, décrit-nous exactement tes manips avant le plantage et si tu travailles sur des scu différents @+

Bonjour à tous Je me suis fortement inspiré d'un lisp fait par KozMos Inc. afin de déterminer quelle est la version d'installée sur un poste. Comme je n'ai que la version 97, merci d'avance de me confirmer que ça fonctionne aussi pour les autres versions d'Excel et que le lisp vous donne la bonne version @+ (defun Liaison_Excel(/ Chemin_Excel Environ Version_Excel) (if (setq Chemin_Excel (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" "Path")) (progn (foreach Environ (list "SYSTEMROOT" "WINDIR" "WINBOOTDIR" "SYSTEMDRIVE" "USERNAME" "COMPUTERNAME" "HOMEDRIVE" "HOMEPATH" "PROGRAMFILES") (if (vl-string-search (strcat "%" Environ "%") Chemin_Excel) (setq Chemin_Excel (vl-string-subst (strcase (getenv Environ)) (strcat "%" Environ "%") Chemin_Excel)) ) ) (if (= (vl-string-elt Chemin_Excel (1- (strlen Chemin_Excel))) 92) (setq Chemin_Excel (strcat Chemin_Excel "Excel.exe")) (setq Chemin_Excel (strcat Chemin_Excel "\\Excel.exe")) ) (cond ((findfile (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) ) ((findfile (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) ) ((findfile (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) ) ) (cond ((= (vl-filename-base (vl-filename-directory Chemin_Excel)) "OFFICE11") (setq Version_Excel "2003") ) ((= (vl-filename-base (vl-filename-directory Chemin_Excel)) "OFFICE10") (setq Version_Excel "XP") ) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL8") (setq Version_Excel "97") ) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL9") (setq Version_Excel "2000") ) ) (if Version_Excel (alert (strcat "\nLa version d'installée est Excel " Version_Excel)) (progn (alert "\nExcel n'est pas installé sur le poste ou c'est une version inconnu") (setq Chemin_Excel nil) ) ) ) ) (princ) ) (liaison_excel) [Edité le 10/2/2005 par Patrick_35]

Et en essayant effacer tout et en retirant ce que tu veux conserver @+

Quelques liens http://www.01net.com/telecharger/windows/Utilitaire/arret_et_demarrage/fiches/28401.html http://www.01net.com/telecharger/windows/Utilitaire/arret_et_demarrage/fiches/27329.html http://www.01net.com/telecharger/windows/Utilitaire/arret_et_demarrage/fiches/23847.html Et pour une recherche plus approfondit si les autres ne conviennent pas @+