Discussion :

[Mugette]

Bonjour,
Je comprend pas le souci dans ce code, pouvez m'aider siouplé ?
erreur : L'indice n'appartient pas à la selection.
L e but etant de mettre dans un tableau le contenu d'un fichier .ini

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()
 
    Dim tab_valeur()
    Dim i As Integer
    Path = "D:\bla\bla\blabla\"
    i = 0
 
    Open Path + "netname.ini" For Input As #1
    While Not EOF(1)
        Line Input #1, valeur
        tab_valeur(i) = valeur
        i = i + 1
    Wend
    Close #1
End Sub

Merci d'avance
Mugette

[ouskel'n'or]

Commence par remplacer ton nom de variable, Path est un mot clé.

[ouskel'n'or]

Ensuite, tu ne redimensionnes pas ton tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    While Not EOF(1)
        Line Input #1, valeur
Redim Preserve tab_valeur(i)
        tab_valeur(i) = valeur
        i = i + 1
    Wend
    Close #1

[Mugette]

ah oui, evidemment...je le savais en plus, je sens honteux.

Merci bien.