"L'indice n'appartient à la sélection" + VBA
Fermé
fleur.31
geosevda - 9 avril 2015 à 11:53
- Messages postés
- 2
- Date d'inscription
- vendredi 6 mai 2011
- Statut
- Membre
- Dernière intervention
- 6 mai 2011
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
- "L'indice n'appartient à la sélection" + VBA - Forum - VB / VBA
- L'indice n'appartient pas à la sélection vba tableau - Forum - VB / VBA
- 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
1 réponse
gregg5l
6 mai 2011 à 11:30
- Messages postés
- 41
- Date d'inscription
- jeudi 26 mai 2005
- Statut
- Membre
- Dernière intervention
- 11 mai 2011
6 mai 2011 à 11:30
Bonjour;
Quand en VBA il y a une erreur de type "l'indice n'appartient à la sélection", c'est que le code ne trouve pas un classeur ou une feuille.
Vérifie donc le nom des feuilles.
Si les noms sont bons, remplace Worksheets() par Sheets()
Quand en VBA il y a une erreur de type "l'indice n'appartient à la sélection", c'est que le code ne trouve pas un classeur ou une feuille.
Vérifie donc le nom des feuilles.
Si les noms sont bons, remplace Worksheets() par Sheets()
9 avril 2015 à 11:53
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