"L'indice n'appartient à la sélection" + VBA
Fermé
fleur.31
Messages postés
2
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
6 mai 2011
-
6 mai 2011 à 11:23
geosevda - 9 avril 2015 à 11:53
geosevda - 9 avril 2015 à 11:53
A voir également:
- L'indice n'appartient pas à la sélection vba
- L'indice n'appartient pas à la sélection - Meilleures réponses
- Vba 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
- A qui appartient ce numéro - Guide
- Je veux savoir à qui appartient ce numéro ✓ - Forum Mobile
- À qui appartient ce numéro belgique - Forum Mobile
1 réponse
gregg5l
Messages postés
41
Date d'inscription
jeudi 26 mai 2005
Statut
Membre
Dernière intervention
11 mai 2011
28
6 mai 2011 à 11:30
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