Extraire les liens hypertext d'une page source HTML

Version imprimable

29/12/2021, 18h05
aekzof

Extraire les liens hypertext d'une page source HTML

Bonjour

SVP j'ai besoin dune fonction qui parcourir une colonne qui contient des codes HTML et extraire les liens de chaque cellule et de placer chaque lien trouve dans une cellule (colonne) séparée sur la même ligne

voici un exemple

https://www.impots.gouv.fr/portail/f...on-des-revenus

<li class="list-group-item">
<a href="https://www.impots.gouv.fr/portail/f.../2042_3450.pdf" data-xt="{"name":"formulaire_2042_c_declaration_de_revenus_complementaire","chapter1":"formulaire","chapter2":"millesime_2021","chapter3":"formulaire","type":"download","level2":"9"}">

<svg width="18" height="20" viewBox="0 0 500 500" version="1.1" xmlns="http://www.w3.org/2000/svg" role="img" aria-label="PDF" title="PDF" desc="PDF">
<use xlink:href="https://www.impots.gouv.fr/portail/f...e.svg#icon-pdf"></use>
</svg>
ormulaire 2042-C : Déclaration de revenus complémentaire </a>

-

<img class="img-responsive bm-marque-etat" src="/portail/files/media/logos/bloc_impots_gouv.svg"> 227 Ko </li>

Joyeuses fêtes de fin d'année
30/12/2021, 08h23
jurassic pork

hello,
ce n'est pas très clair ce que tu veux faire :
- Extraction à partir de la page Web (par IE ou SeleniumBasic) ?
- Toutes les infos que tu nous montres ou seulement les liens PDF (href)?

Montre-nous un exemple de ce que tu veux voir sur une ligne.

Ami calmant, J.P
30/12/2021, 16h20
aekzof

1 pièce(s) jointe(s)

Voici l'exemple demande

Bonjour
tu trouveras en pièces jointe un fichier excel exemple
pour ta question je veux que les liens href

Cordialement
30/12/2021, 16h38
jurassic pork

Quel est l'intérêt des liens vers des images qui ne sont pas caractéristiques à chaque formulaire ?
Moi ce que je sais faire par exemple c'est récupérer tous les liens vers les formulaires PDF.
Ami calmant, J.P
30/12/2021, 16h52
aekzof

suite a votre question

ce que je t'ai envoye cest un exemple
la fonction demande est pour un autre projet

Alors moi aussi je vais te montrer un exemple de comment récupérer les liens des formulaires PDF :
Pour cela j'utilise SeleniumBasic (voir ici pour l'installation et la configuration).
Voici un code qui ouvre la page des formulaires des impôts dans Google, qui récupère tous les liens des documents PDF et les affiche :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Sub RecupLiensFormulairesImpots() 'J.P Décembre 2021 Dim robot As New WebDriver Dim Lienahref, Liensahref As Object robot.Timeouts.ImplicitWait = 8000 ' temps max 8 secondes pour les commandes find avant exception robot.Start "chrome", "https://www.impots.gouv.fr/" robot.Get "/portail/formulaire/2042/declaration-des-revenus" Set Liensahref = robot.FindElementsByXPath("//li[@class=""list-group-item""]/a[@href]") For Each Lienahref In Liensahref Debug.Print Lienahref.Attribute("href") ' on affiche les liens Next robot.Wait (5000) ' laisser 5 secondes robot.Quit ' fermeture de fenêtre google chrome End Sub
Ami calmant, J.P

30/12/2021, 17h30
aekzof

deja fait

je pense que j'ete pas clair de ma demande
En effet le code HTML Se trouve dans le fichier Excel

ce fichier a été généré par le programme Octoparse
donc la fonction doit traiter le fichier Excel
merci
30/12/2021, 17h56
jurassic pork

Citation:

Envoyé par aekzof

je pense que j'ete pas clair de ma demande
En effet le code HTML Se trouve dans le fichier Excel

ce fichier a été généré par le programme Octoparse
donc la fonction doit traiter le fichier Excel
merci

Je ne vais pas pouvoir t'aider car je ne connais pas Octoparse, mais ce qui me paraît bizarre c'est que Octoparse qui est un programme de Web Scraping ne sache pas faire les extractions lui-même.
Ami calmant, J.P
30/12/2021, 18h08
aekzof

ok

non oublie Octoparse
toi tu dois créer une fonction qui va extraire les lien a partir du ficher excel
moi je vais utiliser Octoparse Web Scraping qui va générer ce ficher excel
malheureusement Octoparse ne sache pas extraire ces liens
Merci d'avance
30/12/2021, 21h53
Qwazerty
Salut

Tu peux utiliser un objet HTMLDocument auquel tu transmets ton code html.
Tous les liens seront répertoriés dans la collection Links.

Tu trouveras des infos dans ce tuto
https://qwazerty.developpez.com/tuto...a-excel/#LIV-G

Sans garantie, je dirais un truc comme ça (pense à activer M$ HTML (voir au début du tutoriel)
Code:

1 2 3 4 5 6 Sub test() Dim aDocHtml As New HTMLDocument aDocHtml.textContent = Range("A1").Value End Sub
Tu peux remplacer Range("A1") par n'importe quelle variable String
Ensuite tu accèdes à la collection des Link dans

Code:

aDocHtml.Links

PS: "toi tu dois créer une fonction... "... C'est un forum d'entraide, pas une usine à code ;).
++
Qwaz
30/12/2021, 23h11
Philippe Tulliez

Bonjour,

Citation:

PS: "toi tu dois créer une fonction... "... C'est un forum d'entraide, pas une usine à code .

:ccool::plusser:
31/12/2021, 07h35
jurassic pork

Hello,

Citation:

Envoyé par aekzof

je pense que j'ete pas clair de ma demande
En effet le code HTML Se trouve dans le fichier Excel
ce fichier a été généré par le programme Octoparse
donc la fonction doit traiter le fichier Excel
merci

je n'avais pas vu que la colonne B codeHTML de ton classeur contenait les chaînes HTML à analyser. Je ne sais pas si c'est que te renvoie Octoparse mais en tout cas, ce n'est pas très propre : les liens ne sont pas en entier (ex : https://www.impots.gouv.fr/portail/f.../2042_3450.pdf), avec texte tronqué (ex : ormulaire 2042-C : Déclaration de revenus complémentaire </a> au lieu de Formulaire ...) ou ne se terminant pas par une balise fermante (ex: il y a du texte après la balise fermante </a>)
Comme l'indique Qwarzerty dans son message il y a l'objet HTMLDocument pour analyser le code html. Mais comme celui-ci est partiel dans ton cas (il n'y a pas la page entière HTML) au lieu de

Code:

aDocHtml.textContent = Range("B2").Value

il faut utiliser :

Code:

aDocHtml.body.innerHTML = Range("B2").Value

et pour chercher par exemple un lien qui n'est pas un href (ex xlink:href) :

Code:

aDocHtml.getElementsByTagName("use")(0).getAttribute("xlink:href")

et comme le dit fort justement Qwazerty :

Citation:

"toi tu dois créer une fonction... "... C'est un forum d'entraide, pas une usine à code

C'est toi qui doit créer la fonction et le code. Ici on ne fait pas le boulot à ta place. On est là pour aider, aiguiller, corriger. Si tu ne sais pas du tout faire, il faut apprendre et lire des tutoriels ou alors faire appel à un ami, un collègue, une société de services, un consultant VBA.
Ami calmant, J.P
31/12/2021, 12h33
aekzof

un labo

A
Qwazerty
Philippe Tulliez
jurassic pork

Je sais que c'est un forum d'entraide mais je savais pas qu’il y a un labo dans ce forum pour analyser le sens des mots

Citation:

"toi tu dois créer une fonction... "

c'est une façon de parle cela veut dire que c'est quelqu’un veut m'aider il va créer une fonctionne qui doit faire une tache précise

vous n’êtes pas oblige de m'aider si vous traduisez mal le sens du phrase

enfin gardez vos réponses pour vous je n'ai pas besoin

solution trouvée sur stackoverflow.com
31/12/2021, 16h15
aekzof

Citation:

Envoyé par Philippe Tulliez

Bonjour,
:ccool::plusser:

Pourquoi tu te mêles soit tu répond soit tu....
31/12/2021, 17h32
Philippe Tulliez

Cher Monsieur,
J'ai encore le droit de m'exprimer et mon intervention était destinée à Quaz à qui j'ai exprimé un bravo parce-que ce que vous écrivez "toi tu dois créer une fonction" est contrairement à ce que vous écrivez ensuite "c'est une façon de parle cela veut dire que c'est quelqu’un veut m'aider " est plutôt compris comme un ordre.

Et pour terminer sur "Pourquoi tu te mêles soit tu répond soit tu..".
1, je n'ai pas l'intention de la fermer puisque c'est cela que sous-entends vos trois petits points
2, je n'ai jamais été vulgaire et je reste poli
3, mes statistiques prouvent que je répond régulièrement sur ce forum mais certainement pas dans ces conditions
01/01/2022, 13h19
Qwazerty

Salut

Navré que vous le preniez comme ça.

Il ne s'agit pas que de cette phrase, c'est un ensemble et mon idée c’est forgée depuis le 1er post
"SVP j'ai besoin dune fonction qui parcourir une colonne"
et votre transformation en Mr Hyde me fait renouveler ma confiance en mon intuition.
Je sais très bien qu'il n'est pas facile de demander de l'aide et qu'on peut parfois être maladroit en le faisant mais il semble quand même t'avoir des signe précurseur quand les gens confondent aide et réalisation d'un travail.

Dans un forum d'entraide, je m'attendrais plutôt à lire (comme c'est le cas assez souvent heureusement sinon je n'y mettrais plus les pieds).
"Je souhaite réaliser une fonction qui parcourir une colonne mais malheureusement je bloques sur le point suivant car le code que j'ai produit ne fait pas ce que je souhaite"

Je suis là par jeu, parce que taper du code me passionne, alors oui parfois, comme d'autres, on "pisse" quelques lignes de code pour réaliser le besoin des uns ou des autres mais quand les messages se font un peu trop directifs, j'aime bien rappeler que nous ne sommes pas des employés non payés au service de la communauté Developpez.com.
J'apprécie d'obtenir de l'aide quand j'en ai besoin et c'est un plaisir de le faire en retour mais ça s'arrête là. Un simple mea-culpa de votre part aurait largement suffit à calmer mon ego...
Ça faisait un moment que je n'était pas revenu, un peu à cause de ce type de comportement... d'un coté, c'est un peu comme revenir à la maison et que quelqu'un vous dise "Tadaima"... ça englobe un peu tout, le bon et le moins bon.

Bon vent à vous Dr Jekyll puisque vous avez trouvé votre Éden chez des gens plus gentils que moi (nous).

++
Qwaz