willy95

Merci Gile pour ta réponse qui me permets d'étudier une nouvelle partie dans le lisp, en revanche après plusieurs essais, j'ai fini par comprendre que la question dans la boite de dialogue n'était pas au bon endroit. :blink: Avant qui ne fonctionnait pas : radio_button -> HSP radio_button -> HFP edit_box -> Hauts Après : edit_box -> Hauts radio_button -> HSP radio_button -> HFP En clair un manque de logique dans ma tête car il faut bien avoir une valeur dans la variable AVANT de s'en servir. Merci encore pour vos réponses instructives. :wub:

Bonjour à tous, Pour ce coup la, j'ai tout essayé dans tout les sens et je comprends pas pourquoi j'ai la réponse "type d'argument incorrect: stringp nil" avec le Choix "HSP" ou "HFP" pour la valeur "Haut1" alors que si je la remplace la variable "Num" cela fonctionne parfaitement ? Un gros coup de projecteur sur mon problème serait formidable. Voici la partie du code ou je bloque... (setq tempo2 (vl-filename-mktemp "Question1.dcl") file (open tempo2 "w")) (write-line " Question1 : dialog { label = \"Saisir les informations de la pièce\"; key =\"\"; spacer; : radio_row { label = \"Numéro de la Pièce\"; key = \"Type\"; : edit_box { label = \"Choisir un Numéro de Pièce\"; key = \"List3\"; height = 1 ; edit_width = 6; fixed_width = true; alignment = left; } } : boxed_radio_row { label = \"Hauteur de la Pièce\"; key = \"\"; width = 20; fixed_width = true; alignment = centered; : radio_button { label = \"Hauteur Sous Plafond\"; key = \"HSP\"; } : radio_button { label = \"Hauteur Sous Faux Plafond\"; key = \"HFP\"; } : edit_box { label = \"\"; key = \"Hauts\"; height = 1 ; edit_width = 6; fixed_width = true; alignment = left; } } : spacer { width = 10 ; height = 2 ; } ok_cancel; edit_width = 10; } " file) (close file) (setq Dcl_Id (load_dialog tempo2)) (new_dialog "Question1" Dcl_Id) (action_tile "List3" "(setq Num $value)") (action_tile "Hauts" "(setq Haut1 $value)") (action_tile "HSP" (vl-prin1-to-string '(if (= $value "1") (setq Haut (StrCat "Hsp:" Haut1))))) (action_tile "HFP" (vl-prin1-to-string '(if (= $value "1") (setq Haut (StrCat "Hsfp:" Haut1))))) (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tempo2)

Ok super et un Grand Merci à Gile qui m'a redirigé dans la bonne direction :) Tout fonctionne et beaucoup plus simple à mettre en place, Merci. (setq listdesi '("Entrée" "Cuisine" "Séjour" "Salle à Manger" )) (start_list "List1" ) (mapcar 'add_list listdesi) (end_list) (action_tile "List1" "(setq Desi (nth (atoi $value) listdesi))") (start_dialog) (unload_dialog Dcl_Id)

Maintenant je bute sur les listes déroulantes, j'ai tout essayé dans tout les sens et j'arrive à la conclusion qui me semble la plus proche d'un résultat qui fonctionne à : " erreur: no function definition: SET_TILE_LIST " Si quelqu'un pouvait me dire ce qui cloche ce serait bien sympa (setq tmpdesi (vl-filename-mktemp "Questiondesi.dcl") file (open tmpdesi "w")) (write-line " Questiondesi : dialog { key = \"Titre\"; label = \"\"; initial_focus = \"List1\"; spacer; : row { fixed_width = true; : column { width = 24.76; fixed_width = true; spacer; : text { key = \"Text1\"; label = \"\"; } } : popup_list { key = \"List1\"; width = 11.42; fixed_width = true; }} : spacer { width = 10 ; height = 1 ; } ok_cancel; edit_width = 10; } " file) (close file) (setq Dcl_Id (load_dialog tmpdesi)) (new_dialog "Questiondesi" Dcl_Id) (if (not *Questiondesi@) (setq *Questiondesi@ (list nil "" "")) ) (setq Value1$ (nth 1 *Questiondesi@) List1@ (list "" "Entrée" "Cuisine" "Séjour" "Salle à Manger" "Salle de Bains")) (set_tile "Titre" "Saisir une Désignation") (set_tile "Text1" "Choisir une Désignation") (set_tile_list "List1" List1@ Value1$) (action_tile "List1" "(set_list_value \"List1@\" \"Value1$\")") (setq Return$ (start_dialog)) (unload_dialog Dcl_Id) (setq *Questiondesi@ (list nil Value1$)) (vl-file-delete tmpdesi)

Merci pour ces réponses qui effectivement sont primordiales, car si j'ai bien compris la première charge la boite et la seconde efface le fichier temporaire. En fait j'étais pas si loin que ça, Merci encore pour vos aides précieuses.

Bonjour à tous, Bien que le sujet est été évoqué dans certains sujet, mon problème s'en ait trouvé noyer au milieu d'autre informations, alors je pose la question aussi simplement que je peux comprendre la réponse : Comment créer un fichier temporaire "dcl" pour ouvrir une boite de dialogue dans un lisp, sans de fichier "dcl" externe ? Le DCL : Tmp : dialog { label = ""; key = "Titre"; spacer; : edit_box { label = "Quel couleur : "; key = "couleur"; height = 1 ; edit_width = 10; value = ""; } ok_cancel; edit_width = 10; } et le lisp (qui est peut-être pas parfait mais qui fonctionne pour mon exemple) (setq Dcl_Id% (load_dialog "Tmp.dcl")) (new_dialog "Tmp" Dcl_Id%) (set_tile "Titre" "Choisir votre couleur") (set_tile "couleur" "") (start_dialog) (unload_dialog Dcl_Id%) J'ai testé un truc dans le genre mais il y doit y avoir beaucoup d'erreurs, car cela ne fonctionne pas :( . (setq tempo (vl-filename-mktemp "Tmp2.dcl") file (open tempo "w")) (write-line " Tmp2 : dialog { label = \"\"; key =\"Titre\"; spacer; : edit_box { label = \"Quel couleur : \"; key = \"couleur\"; height = 1 ; edit_width = 10; value = \"\"; } ok_cancel; edit_width = 10; } " file) (close file) (new_dialog "Tmp2" Dcl_Id) (set_tile "Titre" "Choisir votre couleur") (set_tile "couleur" "") (start_dialog) (unload_dialog Dcl_Id) Si une Ame courageuse peut m'éclairer sur ce sujet, j'en serai plus que ravi :) . La Fusion numérique est plus complexe que l'on ne croit :unsure: Merci par avance pour vos réponses instructives...

Encore merci pour cette patience avec moi. Dans mon "code" entre saisir et diamètre et saisir et hauteur c'est Parfait (enfin et Merci) mais je souhaite "griser" <Saisir la hauteur> sauf quand on coche <Renseigner l'essence> et la je re re re bloque malgrès avoir réfléchis et essayer dans tous les sens. Je pensais faire : (set_tile "Essence" "1") (mode_tile "Hautok" 1) et bah non , encore une fois je suis à coté de la plaque... :( Je suis presque au bout, je vais regarder tout à nouveaux.

Bonjour Gile, Je te remercie pour ta réponse rapide et précise, en revanche cela fonctionne presque bien, le problème maintenant doit venir d'ailleurs, à l'ouverture de la boite l'état du "toogle" est décoché avec la "Question2" accessible, il faut que je coche et décoche pour faire verrouillé la "question2", comment faire pour qu'il reste décoché à l'ouverture et que la "question2" s'active quand je coche ? Quand ont valide "Renseigné l'essence" la possibilité de renseigner la hauteur ce fait automatiquement J'ai essayé plusieurs modifications mais sans résultat, alors encore un peu d'aide serait le bien venue. Merci

Bonjour, Bien que le sujet date un peu, il est d'actualité pour moi, je suis en train de me pencher sur les Boites de dialogue qui me passionne beaucoup mais car il y à un mais, j'ai du mal à comprendre comment faire apparaitre (désassombrir) une autre question dans la même boite de dialogue : 1) question (dans le dcl) : : toggle { label = "Hauteur"; key = "Hautok"; height = 1 ; edit_width = 5; alignment = left; } 2) Si oui, question 2 (dans le dcl): : edit_box { label = "Hauteur (m) :"; key = "Question2"; height = 1 ;edit_width = 5; alignment = left; } Un truc du genre dans le lisp... (if (= Hautok 0) (mode_tile "Question2" 0) (mode_tile "Question2" 1) ) Si quelqu'un peut m'aider avec un exemple ultra simple ( 1 tick à cocher ou pas qui active ou pas une question avec une donné à saisir ) Merci à vous

Super, encore mieux car mon bricolage conservait le nom de fichier avec l'extension dans la variable "Fich" et la c'est parfait. (setq fich2 (strcat (substr fich 1 (- (strlen fich) 3)) "top")) Si je comprend bien la fonction "- strlen" retire les 3 derniers caractères de la variable. Merci

C'est Ok, même si c'est pas "propre" j'ai réussi à créer un autre fichier en préservant mon fichier original: ;;Ouverture du fichier en écriture (setq fich2 (getfiled "Créer un fichier" fich "top" 1)) (setq desc2 (open fich2 "w")) ;; Ecriture des lignes dans le fichier (foreach line (reverse lst) (write-line line desc2)) (alert (strcat "Séparateur transformés avec Succès dans le Fichier Choisi : " (strcase fich2))) ;; Fermeture du fichier (close desc2) Bien sûr grâce aux commentaires dans le code

Bonjour et un Grand Merci à "VDH-Bruno" pour ta réponse plus que complète et toutes tes explications et commentaires pour et dans ce code qui me seront utiles et qui me permettent de comprendre davantage ce langage que j'apprécie énormément, j'étudie avec une grande attention toutes ces fonctions de façon à pouvoir à l'avenir faire fonctionner mes idées de ce style. Encore un Grand merci pour ce temps passé à me répondre et qui fait preuve d'une belle générosité de savoir faire et d'enseignement, j'espère également que ce sujet ce sera utile à d'autre. Et si je peu encore me permettre, peut-on créer un nouveau fichier du résultat, avec par exemple une extension nouvelle du genre ".top" au lieu de modifié le fichier original de façon à le préserver ? Au plaisir de vous lire...

Merci beaucoup pour cette réponse qui correspond exactement à mon besoin, j'avoue que j'en attendais pas autant et que j'en étais bien loin. De plus, bien que j'ai trituré ces lignes de code dans tout les sens, je n'ai pas réussi à incrémenter 2 modifications sans recharger le fichier txt, que dois-je faire ? J'ai testé la copie du "while", j'ai ajouté des "and", des "or", rajouté une variable "lst2" et j'en passe... Bref comme à ma triste habitude rien ne fonctionne quand je modifie. Un indice ne serait pas de refus si cette option reste simple à rajouté. (A= .... T: et B= ....G: ) Merci beaucoup pour cette nouvelle étape dans ma compréhension du lisp.

Bonjour à tous, Comme à mon habitude une idée farfelue me trotte dans la tête et je n'arrive pas à la faire fonctionner, surement que nos linguistes incontestables du lisp vont même trouver ça simpliste, mais je bloque et je n'ose même pas poster les petits bouts de code qui sont trop pitoyables et qui ne marchent jamais, bref je cherche tout simplement à modifier des caractères dans un fichier txt à partir d'un lisp, de façon à ne pas retourner dans le bloc note et utilisé "remplacer" à chaque nouveau fichier. Une direction me porte vers les Fonctions Read-char, Write-char ou même Read-line, et la je bloque, à la fin faut-il ecrire un nouveaux fichier txt ou ces commandes remplacent directement les caractères dans le fichier choisis préalablement ? Je cherche par exemple à faire : Ouvrir et choisir mon fichier txt (setq filename (getfiled "Sélectionner un fichier texte" "" "txt;*" 0 )) Rechercher dans toutes les lignes "A=" et les remplacer par "T:" Merci d'avance pour vos idées et aide à la conduite sur ce code pour que je ne m'enlise pas...

Merci beaucoup j'avoue en avoir encore une fois pris plein les yeux, pour ne pas dire un peu trop car je n'avais pas vu cette dernière version de ce lisp, du coup il va me falloir beaucoup plus de temps pour comprendre correctement toutes les choses que tu a rajouté et le faire fonctionner avec l'insertion au choix des calques que j'avais tout juste reussi à inserer dans les choix de la boite de dialogue de ton ancien lisp. Merci beaucoup pour cette réactivité, ce savoir faire et cette générosité.

Bonjour, Après avoir décortiqué ce Lisp de Gile plus d'une fois dans tous les sens et qui est pour moi une vraie Merveille, entre autre car il combine plusieurs éléments de réponse (lecture de fichier, ecriture de fichiers temporaire, boite de dialogue, création de bloc sans dwg, choix multiple,etc...) qu'il apporte de l'espoir à mes idées et à mes besoins tellement divers que j'en ai fait mon livre de chevet (en plus de son Mémo bien sur), mais bien que j'ai lu qu'il fallait créer un bloc avec les differents éléments tels que les symboles ou les calques d'une façon différente, j'aimerais bien réussir à appliquer les calques choisis dans la fenêtre de dialogue que j'ai legèrement modifié sans l'autorisation de mon auteur préféré. Je pense que l'idée final de l'insertion du bloc est peu etre dans ce coin la du code : (vla-put-Layer insert blklay) (foreach att (vlax-invoke insert 'getAttributes) (if (and (= (vla-get-TagString att) "MAT") matric (= mat "1") ) (vla-put-TextString att matric) ) (if (and (= (vla-get-TagString att) "ALT") (= alt "1") ) L'insertion des calques et le choix de calques sont ok (au passage j'aimerai pouvoir les mettres par defaut) mais je n'arrive pas à les appliqués au différentes étiquettes, je fini par me dire que cela n'est peut-etre pas possible de cette manière la ? http://i59.servimg.com/u/f59/12/07/72/29/instop10.jpg Merci d'avance

Un GRAND MERCI à Gile qui encore une fois m'a ouvert les yeux sur des variables systeme que je ne connaissait pas. Et si j'ai tout compris la variable ATTREQ me donne ou pas le choix des demandes d'attributs dans le bloc et la variable ATTDIA me propose ou pas l'affichage de la boite de dialogue, ainsi tout mon problème était la. Encore Merci Beaucoup, j'espère que ce post sera profitable à d'autre qui pourrait ce poser la même question. Et comme vous me l'avez invité je vais essayer de me mettre à l'éditeur. Merci

Merci pour ton idée mais je ne suis pas un spécialiste, même si cela peu faire rire, j'ecris simplement dans le bloc-note et je ne souhaite pas rajouté les difficultés pour savoir utiliser l'éditeur avec son déboguage que je n'arrive pas à lancer tous simplement. sinon voici mon petit fichier qui ne marche toujours pas sur la version 2015 et qui fonctionne bien sur la version 2012 ?!? : (defun Ecrit(/ p y) (SetVar "CMDECHO" 0) (command "_SNAP" "_OFF") (while (setq p (getpoint "\nChoix d'un point (ou Enter pour quitter) : ")) (setq y (rtos (cadr p) 2 2)) ;sortir le Y avec 2 décimales (Command "_-Insert" NomDuBloc p 1 "" "" "" y ) (Princ y) ) ) Merci

Bonjour, Etant donné que ma question ne doit pas etre claire, personne ne me répond, bref, je pense avoir mieux ciblé mon probleme : quand j'insere un bloc avec attribut (une etiquette qui doit avoir la valeur y) j'arrive maintenant sur la fenetre avec l'etiquette vide et en attente de reponse, il doit surrement manqué un symbole dans ma ligne de la commande inserer autour de ma variable y (du genre \y ou *y* un truc du genre). Après avoir essayé plein de truc je reste bloqué (sans jeu de mot) alors si quelqu'un peut m'expliquer simplement la ligne de code pour inserer un bloc avec une valeur de variable dans l'etiquette de mon bloc, merci. (Command "_-Insert" NomDuBloc p 1 "" "" "" y )

Bonjour à tous, Je rencontre un problème et bien après avoir chercher plusieurs heures le pourquoi du comment je trouve toujours pas la réponse, je m'explique : J'avais bricoler un petit lisp qui contient les lignes suivantes et qui fonctionne parfaitement sur Autocad 2012 mais qui ne fonctionne plus sur Autocad 2015, peut-etre un parametre dans les options d'Autocad ou autre, j'ai cru comprendre qu'il ne recupere pas les coordonnées correctement d'Y ?? Il s'emblerai que pour une valeur d'Y : 1010.86 il me dit que la commmande 86 est inconnu, de plus la valeur de la variable n'est pas en coordonnée rectangulaire mais avec des chiffres +e002 ou un truc du genre, c'est vrai que je ne suis pas du tout un spécialiste et que j'ai l'impression de tourné en rond juste à coté de la réponse. Si quelqu'un à rencontré ce probleme et qui peu m'aider ce serait vraiment sympa car j'avoue craqué après avoir retourner le problème dans tous les sens. (setq p (getpoint "\nChoix d'un point : ")) (setq y (rtos (cadr p) 2 2)) (Command "_Insert" NomDuBloc p 1 "" "" y) Merci pour vos réponse qui sont toujours très utiles et instructives.

Bonjour cher utilisateur de Covadis, Existe-il une option dans Covadis pour que les points avec un même matricule puissent être automatiquement "renommés" (rajout d'un radical en plus) ? Je souhaite conserver les 2 points qui n'ont pas forcement les mêmes valeurs, voir mettre les doublons en evidence. par exemple : Point 1 : Matricule 1 Point 1 : Matricule D.1 Merci par avance pour toutes vos éventuelles réponse.

Bonjour à tous, J'aimerai vous soumettre un probleme que je traine depuis trop longtemps : Lancer un lisp qui ouvre une petite boite de dialogue avec pour commencer une Question à Choix multiple, puis inserer un bloc suite aux réponses apportées. C'est vrai que pour certains d'entre vous cela reste simple et réchauffé mais je cherche dans tout les sens sans résultat positif, je suis presque sure de ne pas etre loin mais j'ecris comme un petit cochon, alors pour le coup je recherche de l'aide pour pouvoir faire fonctionner cette idée et que je puisse par la suite greffer plusieurs questions dans une seule boite. Voila mon bout d'essai qui ne marche pas : ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Création de la boite de Dialogue dans un fichier Temporaire ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq temp (vl-filename-mktemp "tempone.dcl") file (open tempone "w")) (write-line (strcat "Montitre" ": dialog { key = \"Title\"; label = "" ;//Title$ from lsp file spacer; " ": boxed_radio_row { key = \"Radio1\";label = \"Position du Titre\" ; " ": radio_button { key = \"P\"; label = \"à Gauche\";} " ": radio_button { key = \"L\"; label = \"à Droite\";}} " "spacer; ok_only;" "}//Montitre" ) file ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; initialisation et chargement de la boite de dialogue ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq dcl_id (load_dialog tempone)) (if (not (new_dialog "IncTxt" dcl_id)) (exit)) (while (setq st (tblnext "STYLE" (not st))) (if (/= (cdr (assoc 2 st)) "") (setq slst (cons (cdr (assoc 2 st)) slst)) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Récupération des infos de la boite de dialogue ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:Montitre (/ Dcl_Id% Radio1$ Return#) (princ "\nMontitre")(princ) (if (not *Montitre@) (setq *Montitre@ (list nil "" "" ))) (setq Radio1$ (nth 1 *Montitre@)) (setq Dcl_Id% (load_dialog "Tempone.dcl")) (new_dialog "Montitre" Dcl_Id%) (set_tile "Title" " - Choix du Cartouche - ") (set_tile "Radio1" Radio1$) (action_tile "Radio1" "(setq format1$ $value)") (action_tile "Radio1" "(setq format1$ $value)") (setq Return# (start_dialog)) (unload_dialog Dcl_Id%) (setq *Montitre@ (list nil Radio1$)) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Fermeture de la boite de dialogue ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (unload_dialog dcl_id) (vl-file-delete tempone) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Programme pour inserer le bloc en fonction des choix de la boite de dialogue ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq TIT (atoi(get_tile "P"))) (setq TIT (atoi(get_tile "L"))) (SetVar "CMDECHO" 0) (Setq OldAccr (GetVar "OSMODE")) (IF (= (TblSearch "Layer" "Cadre") nil) (command "_Layer" "_N" "Cadre" "_CO" "7" "Cadre" "")) (Setq AncienPlan (GetVar "CLayer")) (command "_Layer" "_S" "Cadre" "") (SetVar "OSMODE" 8) (setq Orientation (/ (* 200 (getvar "VIEWTWIST")) pi)) ;;;;(setq TIT (getstring "\nTitre à Gauche ou à Droite ? < G ou D >")) (IF (= TIT "g") (progn (Setq Point (GetPoint "\nPoint d'Insertion du Point Bas Gauche : ")) (command "_Insert" "Titre-gauche" Point 1 "" Orientation))) (Setq Point Nil) (IF (= TIT "d") (progn (Setq Point (GetPoint "\nPoint d'Insertion du Point Bas Gauche : ")) (command "_Insert" "Titre-droit" Point 1 "" Orientation))) (SetVar "OSMODE" OldAccr) (prin1) Merci d'avance pour vos suggestions...

Bonjour à tous, Après avoir chercher sans trouver je reste toujours bloqué sur un petit probleme qui à été réaliser dans le lisp de Gile "Seglen", je m'explique : je cherche a faire apparaitre une boite de dialogue (sans fichier dcl) avec une seule question et 2 (voir plus si possible) réponses, mais une seule réponse qui peu etre cochée et entrer ma réponse dans une variable. Quelquechose comme ça... ":boxed_column{label=\"Quel Choix voulez-vous ?\";" ":radio_row{key=\"ro\";" ":radio_button{label=\"Choix A\";key=\"A\";}" ":radio_button{label=\"Choix B\";key=\"B\";}}" "ok_cancel;}" Mais je reste un plutot perdu, si une Ame charitable pouvait me comprendre et m'aider ? Merci

Bonjour a tous, J'ai un petit probleme : Comment je peu mettre dans une variable la valeur qui se trouve dans une etiquette d'un bloc avec attribut ? Merci d'avance pour vos réponse

ok Merci beaucoup a tous pour vos réponses fructueuses, je vais passer un peu de temps a ecrire mon idée d'après tous ces renseignements et ceux en particulier de Patrick_35 qui a tout a fait répondu a ma question. En revanche j'ai du mal a trouver dans quel variable la réponse sélectionnée ce trouve ? [Edité le 17/8/2011 par willy95]