ENREGISTRER ET OUVRIR LE CONTENU D'UNE LISTBOX A PARTIR D'UN FICHIER

Private Sub Command1_Click()
    Call Ouvreliste(Me.ListBox1)
End Sub

Private Sub Command2_Click()
    Call Sauveliste(Me.ListBox1)
End Sub

Private Sub Sauveliste(LaListe As ListBox)
    Open App.Path & "\" & "laliste.lst" For Output As 1
    For i = 0 To List1.ListCount - 1
        LaListe.ListIndex = i
        Print #1, LaListe.Text
    Next
    Close 1
End Sub
Private Sub Ouvreliste(LaListe As ListBox)
    Open App.Path & "\" & "laliste.lst" For Input As 1
    Do Until EOF(1)
        Line Input #1, Str
        LaListe.AddItem Str
    Loop
    Close 1
End Sub