Salut, je tente actuellement de créé un petit OCX qui va aller lire des données dans un fichier Text et me les séparés dans un Tableau. Cependant, j'obtien un message d'erreur "Subscript out of range" et je sais pas comment sa.
Voici l'endoit ou l'erreur ce fait :
Do While Not EOF(bytFile)
Row = Row + 1
Line Input #bytFile, strTempData
If Col_Init = 0 Then Col_Init = Round(Len(strTempData) / Col_width, 0)
-> ReDim Preserve strData(Row, Col_Init)
Dim i As Integer
For i = 1 To Round(Len(strTempData) / Col_width, 0)
strData(Row, i) = Mid(strTempData, i * Col_width, Col_width)
Next i
DoEvents
Loop
l'erreur se produit quand Row = 2, et je ne comprends pas pourquoi :'( si quelqu'un pouvais m'éclairé
Dii-Player