mauvaise fonction

j'ai une fonction que voici mais le problem est quelle doit normalemen charger mon tablau(1d) d"un un fichier text mais il ne le fai pas
si quelqun voit mon érreur qui me le fasse savoir
Public Sub charger()
Dim i As Integer
    Open App.Path & "\0121" For Input As #1
        While Not EOF(1)
          Input #1, info(i)
        i = i + 1
        Wend
    Close #1
End Sub
merci davence


simon22

Ta fonction ne marchera que si les données dans ton fichier texte sont séparées par des virgules.
Sinon, il fait utiliser Line Input au lieu de Input.
Et il faut, dans ton cas, que le tableau info() ait été déclaré en public, sinon, à la sortie de la fonction, tu le perds.



Public info(100) As String

Public Sub charger()
Dim i As Integer
Dim sTemp As String
    i=0
    Open App.Path & "\0121" For Input As #1
        While Not EOF(1)
          Line Input #1, sTemp
           info(i) = sTemp
           i = i + 1
        Wend
    Close #1
End Sub


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

oui javai bien déclaré mon tableau
aprés avoir remplacer mon code par le tien il me dit :
SubScript out of range
sur la ligne  info(i) = sTemp

simon22

a oui normalemen mon fichier ne composque 11 ligne mais aparamen il en fai 12
bon bas merci pour tous

simon22