"L'indice n'appartient à la sélection" + VBA
fleur.31
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
geosevda - 9 avril 2015 à 11:53
geosevda - 9 avril 2015 à 11:53
A voir également:
- L'indice n'appartient pas à la sélection vba
- Vba l'indice n'appartient pas à la sélection - Meilleures réponses
- L'indice n'appartient pas à la sélection - Meilleures réponses
- Erreur d'execution 9, l'indice n'appartient pas à la sélection ✓ - Forum Programmation
- L'indice n'appartient pas à la selection ✓ - Forum VB / VBA
- Erreur '9' l'indice n'appartient pas à la sélection - Forum VB / VBA
- A qui appartient ce numéro - Guide
- Vba l'indice n'appartient pas à la sélection ✓ - Forum Excel
Dim oFSO As Scripting.FileSystemObject
Dim oTxt As Scripting.TextStream
With oTxt
Dim TestArray() As String
Dim st As String
Dim i As Integer
Dim tRows As Long
Dim tCols As Long
Dim ligne As AcadLine
Set oFSO = New Scripting.FileSystemObject
Set oTxt = oFSO.OpenTextFile(txtDWGname.Text, ForReading)
With oTxt
While Not .AtEndOfStream
st = oTxt.ReadLine
TestArray() = split(st, ";")
Dim TestArrayField As Integer
tRows = .Line
tCols = .Column
For i = 0 To tRows
MsgBox TestArray(i)
Next
Wend
End With
oTxt.Close
End With