Bonjour à tous, le Forum,
Mon besoin me parait simple et pourtant je n'arrive pas à le combler. Alors je me retourne vers vous tous pour que vous puissiez m'éclairer afin de réussir. Je m'explique : voici les étapes que je fais quand je le fais "manuellement", j'ouvre un classeur excel, j'ouvre un fichier TXT (potentiellement grand > 350000 lignes !), je fais "sélectionner tout", puis "copier", je reviens dans mon classeur, je me positionne en cellule A2 et pour finir clic droit pour "coller".
Et bien je n'arrive pas à écrire la macro pour arriver au même résultat. J'arrive à ouvrir le fichier txt mais ensuite les différentes solutions que j'ai essayé ne donne pas le résultat escompté. J'ai éssayé avec l'éditeur mais sans résultat probant.
Voilà les dernières lignes de code testées
Donc si quelqu'un avait une idée pour me faire passer cette étape ce serait très sympa.
Merci par avance à vous tous.
Scoobidoo
Mon besoin me parait simple et pourtant je n'arrive pas à le combler. Alors je me retourne vers vous tous pour que vous puissiez m'éclairer afin de réussir. Je m'explique : voici les étapes que je fais quand je le fais "manuellement", j'ouvre un classeur excel, j'ouvre un fichier TXT (potentiellement grand > 350000 lignes !), je fais "sélectionner tout", puis "copier", je reviens dans mon classeur, je me positionne en cellule A2 et pour finir clic droit pour "coller".
Et bien je n'arrive pas à écrire la macro pour arriver au même résultat. J'arrive à ouvrir le fichier txt mais ensuite les différentes solutions que j'ai essayé ne donne pas le résultat escompté. J'ai éssayé avec l'éditeur mais sans résultat probant.
Voilà les dernières lignes de code testées
Code:
CheminFichier = Cells(MaLigneExcel, 2).Value
Open CheminFichier For Input As #intFic
While Not EOF(intFic)
Line Input #intFic, strLigne
If Trim(strLigne) = "" Then
chaine = strLigne
Else
chaine = chaine & Chr(10) & strLigne
End If
Wend
Cells(MaLigneExcel, 5).Select
Cells(MaLigneExcel, 5) = chaine
Donc si quelqu'un avait une idée pour me faire passer cette étape ce serait très sympa.
Merci par avance à vous tous.
Scoobidoo