Bonjour
Peut on avec VBA (ou VB.NET)
faire la liste sur une page Excel de
tous les liens descendants de la page
internet affichée (déclenché par touche
fonctionnelle par exemple)
Merci
@}+
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
une solution en pilotant IE :
Sub liens() Set ie = CreateObject("internetexplorer.application") ie.Visible = True ie.navigate "http://boursorama.com" Do While ie.ReadyState <> 4 Loop Set dct = ie.Document For Each lien In ie.Document.getElementsByTagName("A") MsgBox lien.href Next End Sub
mais il ya bien d'autres méthodes possibles, et notamment l'utilisation d'API suivi du traitement du code source ou bien l'ouverture de la page au format excel et recherche des hyperlinks... voir aussi http://jacxl.free.fr/cours_xl/cours_xl_jac.html#ouvrir_web
http://jacxl.free.fr
"Michel41" a écrit dans le message de news: 41fbc992$0$2195$
Bonjour Peut on avec VBA (ou VB.NET) faire la liste sur une page Excel de tous les liens descendants de la page internet affichée (déclenché par touche fonctionnelle par exemple) Merci @}+
une solution en pilotant IE :
Sub liens()
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://boursorama.com"
Do While ie.ReadyState <> 4
Loop
Set dct = ie.Document
For Each lien In ie.Document.getElementsByTagName("A")
MsgBox lien.href
Next
End Sub
mais il ya bien d'autres méthodes possibles, et notamment l'utilisation
d'API suivi du traitement du code source
ou bien l'ouverture de la page au format excel et recherche des
hyperlinks...
voir aussi http://jacxl.free.fr/cours_xl/cours_xl_jac.html#ouvrir_web
j@c
http://jacxl.free.fr
"Michel41" <boomerang.pro.3@wanadoo.fr> a écrit dans le message de news:
41fbc992$0$2195$8fcfb975@news.wanadoo.fr...
Bonjour
Peut on avec VBA (ou VB.NET)
faire la liste sur une page Excel de
tous les liens descendants de la page
internet affichée (déclenché par touche
fonctionnelle par exemple)
Merci
@}+
Sub liens() Set ie = CreateObject("internetexplorer.application") ie.Visible = True ie.navigate "http://boursorama.com" Do While ie.ReadyState <> 4 Loop Set dct = ie.Document For Each lien In ie.Document.getElementsByTagName("A") MsgBox lien.href Next End Sub
mais il ya bien d'autres méthodes possibles, et notamment l'utilisation d'API suivi du traitement du code source ou bien l'ouverture de la page au format excel et recherche des hyperlinks... voir aussi http://jacxl.free.fr/cours_xl/cours_xl_jac.html#ouvrir_web
http://jacxl.free.fr
"Michel41" a écrit dans le message de news: 41fbc992$0$2195$
Bonjour Peut on avec VBA (ou VB.NET) faire la liste sur une page Excel de tous les liens descendants de la page internet affichée (déclenché par touche fonctionnelle par exemple) Merci @}+
