Re: [prog] Boite de dialogue

[La lumière des Elfes]

Merci pour ta réponse, mais j'arrive pas a insérer ton exemple dans ma macro voila je te transmets un résumé de ma macro, si tu peux m'aider !!! çà doit etre sous mon nez mais j'y arrive pas !!! voila un petit résumé de ma MACRO sub essaie Dim MonDocument As Object, LesFeuilles As Object, UneFeuille As Object, MaCellule As Object Dim oBoiteDialogue As Object,ExitOk AS integer Dim ChampDirection AS Object Dim Direction As String monDocument = thisComponent LesFeuilles = MonDocument.Sheets UneFeuille = LesFeuilles.getByName("Feuille1") MonDocument.currentController.activeSheet = uneFeuille exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK DialogLibraries.LoadLibrary("Dialogue") oBoiteDialogue = CreateUnoDialog( DialogLibraries.Dialogue.Dialog1) if oBoiteDialogue.Execute = exitOK then ' récupération des données         ChampDirection=oBoiteDialogue.GetControl("TextField1")         Direction=ChampDirection.Text         MaCellule=UneFeuille.getCellRangeByName("A1")         MaCellule.string= (direction)   end if End Sub donc mon but est, comme tu l'a compris que dans le champs "TextField1", apparaisse ce qui se trouve dans la cellule A1 de ma feuille a chaque lancement de la macro Merci de ton aide.... DAVID, Jean-Claude a écrit : Bonjour, A la relecture de ton message (et du mien), je crains d'avoir fait un léger "hors sujet" ;-)))) Mon code correspond au remplissage d'une textbox d'un formulaire. Pour une boite de dialogue, c'est quasiment la même chose (code ci dessous) Bon courage, Jean-Claude Sub Test Dim oDialog As Variant 'Boite de dialogue de choix du fichier    'Crée la Boite de dialogue    oDialog = createUnoDialog(DialogLibraries.Standard._DlgSelFicXL)    'Modifie le texte du controle nommé "FileCtrl"    oDialog.Model.FileCtrl.Text = "Toto"    'Affiche la Boite de dialogue    oDialog.execute     'Referme la Boite de Dialogue    oDialog.endExecute() End Sub --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --