Enregistrer le code html d'une page web [Résolu]

Signaler
Messages postés
84
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
30 janvier 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Salut,
mon problème c'est que je veux enregister le code html  d'une page web dans un repertoir par exemple(d:\production\)(ce code html est récupéré dans une variable src),le programme ci dessous montre cette récupération et il me manque cet enregistrement sous une extension (page1.html):

Function SavePageHtml(url As String, chemin As String, ext As String) As String 'ext :c'est


    HTMLFileIn = url
    WebBrowser1.Navigate HTMLFileIn
    DoEvents
    src = WebBrowser1.Document.documentElement.outerHTML
    DoEvents
   
End Function

Merci d'avance.

3 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
38
numfile = FreeFile
Open"d:\production\page1.html" For Output As #numfile
Put #numfile, , src
Close #numfile





---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
38
Oupps désolé, en mode Output, il faut utiliser l'instruction Print

Remplace "Put #numfile, , src" par "Print #numfile, src"

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
salut,
c'est pas tout de naviguer, encore faut-il attendre le chargement complet de la page, ce qui n'est pas le cas avec juste 2 doevents
il faut écrire dans l'évènement DocumentComplete (ou qqc du genre)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp