bonjour,

Je cherche comment récupérer les valeur d'une listbox afin de pouvoir remplir un signet dans le fichier word.
je voudrais que mes infos dans la textbox viennent en dessous de "Liste_serie".


Private Sub CommandButton7_Click()
Dim Mondico As Object
Dim i As Integer
Set Mondico = CreateObject("Scripting.Dictionary")
For i = 0 To Me.ListBox3.ListCount - 1
If Me.ListBox3.Selected(i) = True Then Mondico(ListBox3.List(i)) = ""
Next i
If RemplacerTexteSignet(ActiveDocument.Bookmarks("Liste_Serie"), "Liste des series concernées:") Then

End If
End Sub




Je n'arrive pas à trouver de solution concluante...