Bonsoir tout le monde,
En faisant mes imports de page web via Firefox, j'obtiens un fichier htm ultra pratique pour mes besoins: il ne garde que le texte affiché à l'écran et il ajoute entre crochets toutes les url associée aux hyperliens. Comme expliqué dans un autre topic, mon but unique étant d'extraire toutes les urls visibles ou non.
Maintenant, si j'utilise le code fournit dans la faq pour sauvegarder des pages web via Internet Explorer, toute la mise en page html sera importée avec. Ce qui ne m'arrange pas du tout (lourdeur, lenteur et autre code nécessaire pour extraire les url des hyperliens). Voici le code de la faq:
Bref, comment faire pour utiliser ce code à la manière de la sauvegarde de Firefox ? Donc, afficher derrière chaque hyperlien l'url réelle ?
Merci beaucoup pour vos réponses.
En faisant mes imports de page web via Firefox, j'obtiens un fichier htm ultra pratique pour mes besoins: il ne garde que le texte affiché à l'écran et il ajoute entre crochets toutes les url associée aux hyperliens. Comme expliqué dans un autre topic, mon but unique étant d'extraire toutes les urls visibles ou non.
Maintenant, si j'utilise le code fournit dans la faq pour sauvegarder des pages web via Internet Explorer, toute la mise en page html sera importée avec. Ce qui ne m'arrange pas du tout (lourdeur, lenteur et autre code nécessaire pour extraire les url des hyperliens). Voici le code de la faq:
Code:
Sub exporterPageInternetDansfichierTexte()
'La source : http://www.excelforum.com//showthread.php?t=335124
'necessite d'activer la reference Microsoft Internet Controls
Dim IE As internetExplorer
Dim nFile As Integer
Set IE = createObject("internetExplorer.Application")
With IE
.Visible = False
.Silent = True
.Navigate "http://www.excel-downloads.com"
Do Until .readyState = READYSTATE_COMPLETE
doEvents
Loop 'attend la fin du chargement
nFile = freeFile
Open "C:\xldtest.txt" For Output Shared As #nFile
Print #nFile, .Document.documentElement.innerText
'Print #nFile, .document.documentElement.innerHTML
Close #nFile
.Quit
End With
Set IE = Nothing
End Sub
Bref, comment faire pour utiliser ce code à la manière de la sauvegarde de Firefox ? Donc, afficher derrière chaque hyperlien l'url réelle ?
Merci beaucoup pour vos réponses.