inclure code source html dans une feuille excel

travolta · 8 Août 2016

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

travolta · 8 Août 2016

j'ai trouvé presque ce qu'il, faut sur le net :

http://excel-malin.com/codes-sources-vba/obtenir-code-source-html-page-web/

mais ça met dans un msgbox, et je ne sais pas faire pour mettre dans les cellules A1, A2 etc....

Modeste geedee · 8 Août 2016

Bonsour®

travolta à dit:
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 :

VB:

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

travolta · 8 Août 2016

Merci Ce lien n'existe plus

mais par contre à quel endroit je mets l'url pour que ça aille copier le code source ?

travolta · 9 Août 2016

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

inclure code source html dans une feuille excel

travolta

XLDnaute Junior

travolta

XLDnaute Junior

Modeste geedee

XLDnaute Barbatruc

travolta

XLDnaute Junior

travolta

XLDnaute Junior

Discussions similaires