Macro Copie d'un fichier TXT dans Excel

Bonjour,

Je souhaitais par le biais de la macro ci dessous lire un fichier texte et le retraduire dans Excel.
Le problème que j'ai rencontré c'est que dans certain fichier "TXT" la donnée était en un seul bloc donc pas de retour à la ligne.
Donc j'ai du insérer une boucle pour le forcer à lire la ligne en dessous.
Résultat des courses, il constate bien le nombre de ligne dans le fichier mais il me reporte uniqument la 1ere ligne x fois.
Pouvez-vous m'aider ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

iFile = FreeFile   'Ouvrir le fichier Open NomF For Input As #iFile   'Lecture du fichier et écriture dans Excel Do Until EOF(iFile) Line Input #iFile, data datas = Split(data, vbLf) For I = 1 To UBound(datas) ws.Cells(I, 1) = datas Next I = I + 1 Loop

---

Bonjour !

:tagcode: conformément aux règles de ce forum comportant même une animation !


Sinon c'est juste une erreur de conception car la première ligne est lue avant la boucle
au lieu de lire les lignes au sein de la boucle !
Il suffit de consulter l'exemple de l'aide VBA concernant l'instruction Line Input # …

S'il s'agit d'un problème de séquence de fin de ligne,
ne pas oublier alors d'indiquer l'indice de la variable datas lors de l'affectation d'une donnée à une cellule !

Code:

---

1 2	datas = Split("e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e,e", ",") ActiveCell.Resize(UBound(datas)) = Application.Transpose(datas)

---

désolé Marc-L, j'ai oublié de mettre en code ;)

Génial dysorthographie, ta ligne de transposition marche parfaitement.

Merci