inclure code source html dans une feuille excel

travolta

XLDnaute Junior
Bonjour le forum

j'ai beau lire le forum et chercher sur le net, je n'arrive pas à trouver ce que je veux :(

je voudrais dans une feuille excel , que cela me copie le code source d'une page html , donc par exemple

<!DOCTYPE html>
<html id="XenForo" lang="fr-FR" dir="LTR" class="Public NoJs LoggedIn NoSidebar Responsive" xmlns:fb="">
<head>
<meta charset="utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=Edge,chrome=1" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<base href="https://www.excel-downloads.com/" />
<script>
var _b = document.getElementsByTagName('base')[0], _bH = "https://www.excel-downloads.com/";
if (_b && _b.href != _bH) _b.href = _bH;
</script>

avec donc en A1 : <!DOCTYPE html>

en A2 : <html id="XenForo" lang="fr-FR" dir="LTR" class="Public NoJs LoggedIn NoSidebar Responsive" xmlns:fb="">

en A3 : <head>

etc....

Car avec le menu donnée et "à partir du web" je n'ai que le contenu (texte) de la page, or certaines infos que je veux récupérer n'apparaissent que dans le code source de la page

j'ai 50 pages html dont je voudrais récupérer le code source, la page 1 dans feuil1, la page 2 dans feuil2 etc.... :)

Merci d'avance :)
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
je voudrais dans une feuille excel , que cela me copie le code source d'une page html
les cellules de destination doivent etre au format texte :

upload_2016-8-8_20-36-38.png

VB:
Sub Macro1()
    Columns("A:A").Select
    Selection.NumberFormat = "@"
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False
End Sub
 

travolta

XLDnaute Junior
J'ai trouvé ça aussi, sauf que là ça prend un fichier html stocké sur le disque dur, moi ce que je voudrais, c'est que le paramètre d'entrée soit une url, pas un fichier stocké sur le disque dur :

Code:
SubOpen_HTML_Save_XLSX()

Workbooks.OpenFilename:="C:\Temp\Example.html"ActiveWorkbook.SaveAsFilename:= _"C:\Temp\Example.xlsx",FileFormat:= _
xlOpenXMLWorkbook

EndSub
 

Discussions similaires

Statistiques des forums

Discussions
314 708
Messages
2 112 092
Membres
111 416
dernier inscrit
philipperoy83