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