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()
geosevda
Bonjour, j'ai le même message d'erreur, j'essai de lire les lignes d'un fichier texte par un messagebox le code est le suivant :
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
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