bonjour,

je comprend rien à l'aide en ce qui concerne les fichiers séquentiels.
Mon but etant de tester le contenu d'une listbox, voir si le contenu existe deja dans le fichier (ini), si oui je ne fais rien, sinon je la rajoute dans mon fichier (ini) afin qu'il charge la liste mise a jour la prochaine fois.
Voivi mon code :
Je met le contenu de mon fichier dans un tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub lecture_fichier()
    i = 0
    mavaleur = UserForm1.ComboBox3.Value
    chemin = "D:\François\Dev\info_fits\"
    Open chemin + "netname.ini" For Input As #1
        While Not EOF(1)
            Line Input #1, valeur
            ReDim Preserve tab_valeur(i)
            tab_valeur(i) = valeur
            i = i + 1
            imax = i - 1
        Wend
    Close #1
End Sub
J'ecris la nvelle valeur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub ecriture_nvelle_val()
    mavaleur = userform1.combobox9.value
    j = 0
    n = 0
    chemin = "D:\François\Dev\info_fits\"
    Open chemin + "netname.ini" For Output As #1
    For j = 0 To imax
        If tab_valeur(j) <> mavaleur Then
            n = n + 1
        End If
    Close #1
    Next j
    If n = imax Then
       Write #1, mavaleur
    End If
End Sub
enfin je réécris la liste d'origine
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub ecriture_existant(tab_valeur(), imax As Integer)
    k = 0
    chemin = "D:\François\Dev\info_fits\"
    Open chemin + "netname.ini" For Output As #1
    For k = 0 To imax
        Write #1, tab_valeur(k)
    Close #1
    Next k
 
End Sub
Le code n'est pas complet, genre les parametres etc.. mais si vraiment ca vous manque je le rajouterai.

Merci d'avance.