[fr-users] Renvoyer valeur entre textbox

Bonjour, 

Dans une boite de dialogue j'essaie de faire passer le texte d'un textfield
à un autre avec le code suivant:

Sub OuvrirDialogue
Dim oDialog As Object, oPDialog As Object
Dim oTxt1 As Object, oTxt2 As Object
  
        DialogLibraries.LoadLibrary("Standard")
        oDialog = DialogLibraries.Standard.Dialog1
        oPDialog = CreateUnoDialog(oDialog)

        oTxt1 = oPDialog.getControl("TextField1")
        oTxt2 = oPDialog.getControl("TextField2")
        
        oTxt2.Text = oTxt1.Text
        
        oPDialog.Execute()
End Sub

J'ai trouvé comment le faire directement avec les controles sur mon document
writer mais je voudrais passer par une boite de dialogue mais je n'arrive à
rien, même pas de message d'erreur
Le dialogue s'ouvre bien mais le texte ne passe pas d'un textfied à l'autre.

Merci de votre aide

--
View this message in context: 
http://nabble.documentfoundation.org/Renvoyer-valeur-entre-textbox-tp3403005p3403005.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés