Salut, j'ai un problême avec ce code qui permet de sauvegarder le contenu d'un ListBox dans un fichier:
Dim Dates As String
Dim i As Integer
Dim j As Integer
' Chemin fichier et ouverture
FileOpen(1, path & "\" & nom & "\" & "\Gestion\sto.gcc", OpenMode.Binary)
' on parcoure donc toutes les lignes
For i = 0 To ListView1.Items.Count
' On met dans Dates l'item de la première colonne
Dates = ListView1.Items(i).Text & vbTab ' ici un espace
' on parcoure toutes les colonnes
For j = 1 To 9
' On rempli ta variable
Dates = Dates & ListView1.Items(i).SubItems(j).Text & vbTab 'ici un espace
Next j
' on ecrit dans le fichier dés qu'une ligne est terminées
FilePut(1, Dates) ' Saut de ligne
Next i
' Une fois tout fini, ferme fichier
FileClose(1)
Si vous trouvez la solution...
Merci d'avance
Bye
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/
Partager