Transfert fichier texte/Excel

emmanuel75

XLDnaute Junior
Bonjour le forum,

J'utilise le code suivant afin de récupérer le code d'une page web dans un fichier texte:

Dim nFile as integer
nFile = FreeFile
Open "C:\Code.txt" For Output Shared As #nFile
Print #nFile, WebBrowser1.Document.documentElement.innerHTML
Close #nFile

J'aimerais transférer ce fichier texte dans un feuillet Excel de telle sorte que chaque ligne du fichier texte intitulé "Code" soit copié dans une cellule, soit:
1°ligne en A1
2°ligne en A2...etc.

Quelqu'un aurait-il une idée ???

Emmanuel
 

Discussions similaires

Réponses
2
Affichages
500

Statistiques des forums

Discussions
312 681
Messages
2 090 871
Membres
104 681
dernier inscrit
Gtcheumawe