Salut le forum
Quel genre de tableau ?
L'exemple ci dessous t'écrira le fichier txt dans le classeur actif en partant
de la feuille 1 et en décalant d'une feuille toutes les 65536 lignes.
Cette ligne est à adapter
Open "d:\copy\test.txt" For Input As #1
Sub OuvertureFichier()
Dim Val_Ligne As String
Dim Compteur As Long
Dim Compteur2 As Integer
On Error GoTo Ferme
Open "d:\copy\test.txt" For Input As #1
Compteur = 0
Compteur2 = 1
Do While Not EOF(1)
Line Input #1, Val_Ligne
Sheets(Compteur2).Range("A1").Offset(Compteur, 0).Value = Val_Ligne
Compteur = Compteur + 1
If Compteur = 65536 Then Compteur = 0: Compteur2 = Compteur2 + 1
Loop
Ferme:
Close #1
End Sub
Mytå