Discussion :

[liner77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour !

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 !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[liner77]

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

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

Merci