Et bien voilà, sur vos conseils avisés, j'ai pu creuser un peu et trouvé ces solutions... En revanche, pour ListBox, c'est encore très obscure...

Dim oDialog1 as object Dim Doc As Object Dim Bookmark As Object Dim Cursor As Object

Sub DialogShow oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) oDialog1.Execute() End Sub

Sub RenvoiDonnees ' Renvoi CheckBox Doc = StarDesktop.CurrentComponent Bookmark = Doc.Bookmarks.getByName("MonSignetCase") Cursor = Doc.Text.createTextCursorByRange(Bookmark.Anchor) Cible1=odialog1.getControl("CheckBox1") If Cible1.State = 0 Then Cursor.String = "non cochée" Else Cursor.String = "cochée"

' Renvoi OptionButton Doc = StarDesktop.CurrentComponent Bookmark = Doc.Bookmarks.getByName("MonSignetOption") Cursor = Doc.Text.createTextCursorByRange(Bookmark.Anchor) Cible2=odialog1.getControl("OptionButton1") If Cible2.State = true Then Cursor.String = "1er bouton sélectionné" Cible2bis=odialog1.getControl("OptionButton2") If Cible2bis.State = true Then Cursor.String = "2ème bouton sélectionné"

' Renvoie TextField1 au signet (monSignetTexte) Cible3=oDialog1.getControl("TextField1").getText ThisComponent.getBookmarks().getByName("MonSignetTexte").getAnchor setString(Cible3)

' -----------------A partir de là, il me manque quelquechose... A quoi se réfère "leTexte" ? ' Renvoie Liste ' Doc = StarDesktop.CurrentComponent ' Bookmark = Doc.Bookmarks.getByName("MonSignetListe") ' Cursor = Doc.Text.createTextCursorByRange(Bookmark.Anchor) ' Cible4=odialog1.getControl("ListBox1") ' leTexte=Cible4.selectedItem

oDialog1.endExecute 'ferme le dialogue End Sub