[VBA-Excel]probleme d'ecriture dans un fichier ini
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:
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:
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:
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.
