[fr-users] Sélection dans une listbox

Bonjour,

Je patine dans la semoule depuis 24 avec ce code qui est sensé 
m'afficher dans une variable à partir d'un DLG et un bouton valider
le choix dans une listbox mais qui ne provoque pas d'erreur mais qui me 
retourne ... rien !
Voici ce code :

Sub affich_choix_feuille()

     Dim MaBibli As Object
     Dim MonDlg As Object
     Dim MonControle As Object
     Dim MonChoix As String
     MaBibli = DialogLibraries.GetByName("Standard")
     MonDlg = MaBibli.getByName("Dialog1") ' nom du DLG
     MonControle = CreateUnoDialog(MonDlg)
     MonChoix = MonControle.getControl("ListBox1").SelectedItem ' 
ListBox1 nom du LSB
     MsgBox MonChoix

End Sub

Merci de votre aide
Cordialement
Michel


--
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