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
494

Statistiques des forums

Discussions
312 495
Messages
2 088 971
Membres
103 995
dernier inscrit
Flodk