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
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