winfield

Désolé....... Je vois pas où tu coinces Sub Example_InitializeUserInput() ' This example prompts for user input of a point. By using the ' InitializeUserInput method to define a keyword list, it can also ' return keywords entered by the user. On Error Resume Next ' Define the valid keywords Dim keywordList As String [surligneur] keywordList = "1Bloc 2Bloc 3Bloc" [/surligneur] ' Call InitializeUserInput to setup the keywords ThisDrawing.Utility.InitializeUserInput 128, keywordList ' Get the user input Dim returnPnt As Variant [surligneur] '---------------------------------------------------------------- 'a adapter en fonction de la boucle '---------------------------------------------------------------- '---------------------------------------------------------------- 'Mettre une boucle '---------------------------------------------------------------- returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point(1Bloc/2Bloc/3Bloc): ") [/surligneur] If Err Then [surligneur] If StrComp(Err.Description, "La saisie utilisateur est un mot clé", 1) = 0 Then [/surligneur] ' One of the keywords was entered Dim inputString As String Err.Clear inputString = ThisDrawing.Utility.GetInput MsgBox "You entered the keyword: " & inputString [surligneur] '---------------------------------------------------------------- 'Ton code pour l'insertion des blocs en fonction du mot clé par ex avec Select Case '---------------------------------------------------------------- [/surligneur] Else MsgBox "Error selecting the point: " & Err.Description Err.Clear End If Else ' Display point coordinates MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput Example" End If [surligneur] '---------------------------------------------------------------- 'Fin de la boucle '---------------------------------------------------------------- [/surligneur] End Sub

Pas besoin de t'écrire une routine, l'ex de l'aide montre ce qu'il faut :

C'est bien pour ça qu'il faut regarder [surligneur] InitializeUserInput[/surligneur] pour capter quand tu presses sur la touche "e". Après faut écrire le code qui va insérer ton bloc tous les 20 unités

Je n'ai malheureusement pas eu de succès avec la touche Entrée Via Linux ? Pourquoi pas, faudrait que je tente pour voir déjà le type de fichier...ce sera ça de prit, car sous Win, la partiion est presque pleine mais dedans ; à part un dossier vide, c'est aussi désert que le Sahara et pourtant j'ai réglé Win pour voir les Fichiers/Dossiers cachés.

Rien à voir avec le sujet...et je ne voulais pas ouvrir un post pour ça. Lt ne supporte pas le vba, Lisp, VLisp mais peut-il être piloté par ex VBA Excel ?

regarde dans "InitializeUserInput"

Dsl, je vois pas où est le problème du code que tu cites plus haut, à part surement une convertion malencontreuse de caractère Set r_doc =oDesk.loadComponentFromURL("file:///c|test.sxw", "_blank", 0, OpenPar) faut emplacer le pipe par le classique "c:\"

je faisais allusion à

Dans le manuel, ils disentqu'on peut [surligneur] l'acheter[/surligneur] :mad:

Là, j'ai du mal comprendre :casstet:

Une connaissance a un pc qui a une partition de restauration. Pour restaurer comme à la sortie d'usine on pressait F11 et on suivait les instructions. Il n'a pas de CD/DVD fourni pour la restauration. L'image peut être graver sur support amovible, mais n'a pas été fait :( et nous avons installé une autre version de Win... Peut-on récuperer l'image de la restauration et la graver, maintenant qu'on a plus l'OS d'origine ? (le truc du F11 ne fonctionnement plus, je pense à cause du MBR) Si oui, comment faire ? Merci

Essaye Dim serviceManager As Object Dim Desktop As Object, DocumentoOOo As Object Dim args() Dim ObjCalc As Object Set serviceManager = CreateObject("com.sun.star.serviceManager") Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop") Set DocumentoOOo = Desktop.loadComponentFromURL("private:factory/ [surligneur]scalc" [/surligneur] , "_blank", 0, args) scalc =tableur swriter=traitement de texte ....

Juste par curiosité, peux-tu développer le sujet ?

Et pourtant c'est tellement simple de l'avoir........même pas besoin de le pirater ! http:// http://fr.openoffice.org/about-downloads.html à user et en abuser

Justement ; le Précédent scu;; ..... scu;p; Bonne journée

Salut , je mettrais juste un [surligneur] scu;;[/surligneur] avant.

je mise pour le 26

le truc bien nul les express ne s'étaient pas installé dsl pour la frayeur

SSX et txt2mtxt ne fonctionne plus :( Y en a d'autres comme ça ? :mad:

Sur un projet, j'ai même eu droit aux cotes explosées !!! :mad: je préfère taire mon opinion sur ce principe

Salut, Je me rappelle l'avoir eu, mais malheureusement, je ne sait plus comment j'avais résolu et d'où venait le problème. :( , j'espère que tu ne m'en voudras pas de ne pas me replonger dans ce code. A part ça, je trouve le code un peu vieillot, par ex il ne prend en charge que 2 versions d'Excel, alors qu'il y a moyen que ça marche avec toutes les versions d'XLS......

De pouvoir aller sur le site ? Pas de probleme

scusez du dérangement, mais pour ça, Yavé pas déjà le texte "[Résolu]" :exclam:

Bonsoir,

J'aurai dû mettre : ..il est vrai, parait-il que les têtes Fr .... ...n'en déplaise à Mister S...avec un grand S. La lettre étant la seule chose de grand chez lui.