VBA et liens Internet

Bonjour, :coucou:

Je n'ai pas tout compris dans le tuto de Qwazerty, c'est pourquoi je sollicite un peu d'aide.
J'essaie par exemple sur la page d'accueil de wikipédia de cliquer sur le lien HISTOIRE (lien qui ne comporte pas d'ID): <a href="/wiki/Portail:Histoire" title="Portail:Histoire">Histoire</a>

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub IEViaVBAExcel2() Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim htmlTagCol As IHTMLElementCollection Dim Generic As HTMLGenericElement   'Ouvre la page Web IE.navigate "http://fr.wikipedia.org/wiki/Wikip%C3%A9dia:Accueil_principal" IE.Visible = True WaitIE IE Set IEDoc = IE.document   'On liste les éléments de type anchor Set htmlTagCol = IEDoc.getElementsByTagName("a")   Set Generic = htmlTagCol.Item("Portail:Histoire") Generic.Click     Set IE = Nothing Set IEDoc = Nothing End Sub Sub WaitIE(IE As InternetExplorer) 'On boucle tant que la page n'est pas totalement chargée Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop End Sub

---

Bien sûr Portail:Histoire n'est pas l'ID et donc cela ne fonctionne pas. Comment puis-je procéder? D'avance merci à tous.

Voici ce que j'ai trouvé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub IEViaVBAExcel7() Dim ie As New InternetExplorer Dim IEdoc As HTMLDocument Dim HtmlElementStandard As HTMLGenericElement Dim monlien As HTMLAnchorElement   'Ouvre la page Web ie.navigate "http://fr.wikipedia.org/wiki/Wikip%C3%A9dia:Accueil_principal" ie.Visible = True WaitIE ie Set IEdoc = ie.document   ' "acceuil_titre" se trouve dans Item 77 (IEdoc --> all --> Item77) Set HtmlElementStandard = IEdoc.all(77) Set monlien = HtmlElementStandard.all(27) monlien.Click     ' "Portail:Histoire" se trouve dans Item 28 (càd 27 sur page html) Set IEdoc = Nothing Set HtmlElementStandard = Nothing Set Generic = Nothing Set monlien = Nothing     End Sub

---

Ce code fonctionne mais existe-t-il une meilleure solution?

Bonjour,

Si tu veux aller vers le portail histoire, il suffit de naviguer vers
http://fr.wikipedia.org/wiki/Portail:Histoire

Comme l'indique le href.

Il s'agit en fait d'un exercice pour comprendre le tuto de Qwazerty. Je souhaite naviguer d'une page à une autre. La méthode que tu me suggéres est naturellement plus facile mais est-elle toujours applicable? Peut-on toujours se passer des liens?

Salut

Je suis d'accord avec AlainTech bien sur, il ne faut pas se braquer uniquement sur une technique. Je ne répondrais pas à ta question concernant l'utilisation du href car je ne suis pas vraiment spécialiste de la question :).
Néanmoins, comme je le dis dans le tutoriel, tu vas souvent développer une procédure qui te permet de récupérer un contenu situé dans un endroit connu, donc autant accéder à ce contenu au plus rapidement via des adresses précises.
Dans le cas de l'historique Wiki, on peut parfaitement imaginer que Wiki décide de relooker sa page d'accueil et que le lien historique ne se trouve plus du tout au même endroit sur celle-ci. Quand bien même, il y aura de fortes chances que le lien vers l'historique, lui, reste le même.
Dans un tel cas on voit bien que l'utilisation du lien historique te permettra d'accéder rapidement aux données et d'éluder des éventuels relookages de page d'accueil.

Ceci dit je comprend ta démarche. Donc dans un cas comme celui, plutôt que de chercher l'élément par sa position dans le code, il est plus intéressant de remonter un peu dans la hiérarchie pour voir si un des éléments proches n'est pas plus facile à pointer.
Dans ton exemple, c'est la cas, car tu trouveras facilement l'id "ca-history", un peu de navigation dans les childrens de cet éléments te permettra de pointer facilement le lien convoité.

++
Qwaz

Un grand merci à tous les deux pour vos réponses et toutes mes félicitations à Qwazerty pour son formidable tuto.
J'ai bien compris: à chaque fois que c'est possible, j'accède directement au lien par son url.
Je ne ferme pas tout de suite ce sujet car je voudrais encore faire quelques tests. MERCI :lahola:

Pour terminer avec les liens, je voudrais poser encore une question.
Je viens d'accéder (avec pas mal de difficultés, c'est vrai) à un lien d'une balise iframe. La difficulté (comme tu le dis dans ton tuto est :"Le composant iFrame est utilisé pour afficher dans le corps d'une page une autre page Web indépendante. Cette page indépendante a beau être affichée, son contenu n'est pas accessible dans l'arborescence VBA, il faudra charger cette page dans une fenêtre de navigation pour interagir avec elle." Pour charger cette page, j"ai repéré l'adresse grâce à mes espions: iedoc --> all --> item12 --> all item58 --> all --> item18 --> ie8-src et donc dans mon code j'utilise:

Code:

---

1 2 3

Dim item12 As HTMLDivElement Dim item58 As HTMLDivElement Dim item18 As HTMLIFrame

---

et ensuite:

Code:

---

1 2 3

Set item12 = IEdoc.all(11) Set item58 = item12.all(57) Set item18 = item58.all(17)

---

Ma question, sans rentrer dans le détail du code, est de savoir si il existe un moyen plus directe d'accéder à item 58. all(17).

Salut

Pour pouvoir répondre il faut le code source de la page.
Techniquement si tu parles uniquement en terme d'écriture ton code équivaut à

Code:

---

Set item12 = IEdoc.all(11).all(57).all(17)

---

et il faudrait verifier mais ça doit aussi correspondre à un truc du genre

Code:

---

Set item12 = IEdoc.all(87)

---

Sans même parler de l'écriture, attention, l'utilisation excessive de numéro d'item est, à mon avis, a éviter, il existe pas mal d'outil pour pointer directement un élément de la page, autant les utiliser.

Si le cite web sur lequel tu travail n'a rien de confidentiel, place le lien avec une petite bafouille qui explique ce que tu souhaites faire.

++
Qwaz

Je ne peux effectivement pas donner le code source car il s'agit d'un site accessible par mot de passe. Pour l'instant, et grâce à ton tuto, j'avance pas trop mal.
En termes d'écriture:

Code:

---

Set item18 = IEdoc.all(11).all(57).all(17)

---

fonctionne effectivement. Je ne l'avais pas utilisé car bizarement il n'y pas d'autocomplétion lors de l'écriture et je n'y croyais pas mais je confirme ça marche.
Par contre d'où sort-tu IEdoc.all(87)?

Salut

Pour l'autocomplétition, cela doit venir du type du membre All, VBA connait le type de la collection qu'il représente, mais pas des item inclus dans cette collection et donc lorsque tu fais

Code:

---

All(x)

---

il ne sais pas à quel type d'élément tu fais référence(DIV, a, tab,...), il ne peut donc pas compléter. A contrario, lorsque tu met All(x) dans une variable typé, tu dis a VBA, c'est un élément DIV par exemple.

Lorsque tu fais All(11), tu te place sur le 12 éléments de ta feuille à partir "du début" de la page web. Puis à partir de cet élément tu vas au 58 éléments (tu vas donc 59 éléments plus loin) Et ensuite tu refais un bond de 18 éléments. J'ai donc juste additionné les bond successifs. Est ce que ça fonctionne? (oupss, je t'avais mis 87, j'ai oublié de conté les éléments 0 de chaque bond).

Mais encore une fois, es tu sur de ne pas pouvoir faire une recherche par Nom Id ou au pire par className, pour une éventuelle maintenant du code, ce serait bien plus lisible et facilement modifiable.

[Edit]
Je te mets ce que j'ai ajouté sur le post du tutoriel.

Afin de faciliter les recherches d'éléments dans les pages web, j'ai ajouté une page supplémentaire au fichier lié au tutoriel(j'ajouterais une petite info rapide dans le corps du tutoriel dès que possible).
Vous trouverez sur l'onglet "Arborescence" deux boutons, le première nommé "Web" charge une page IE, un message s'affiche, vous invitant à naviguer jusqu'à la page que vous souhaitez scanner. Une fois cette page atteinte, il vous suffit d'appuyer sur le 2ème bouton, "Scan". La liste des éléments contenus dans la page apparaît alors, avec les attributs que vous avez demandé à afficher. Pour obtenir des attributs supplémentaires, il suffit d'ajouter des entêtes de colonne en respectant le nom exact de l'attribut souhaité (la casse n'est pas prise en compte).
Si vous souhaitez scanner une autre page, il vous suffit de continuer à utiliser la même instance d'IE pour rejoindre la nouvelle page et de cliquer de nouveau sur le bouton "Scan"

Pour info, dans la colonne type, vous trouverez certainement des "Permission refusée", visiblement c'est le cas lorsque l'élément en question est une frame, je ne peux pas malgré tout garantir que ce ne sera le cas uniquement pour les frames... quoiqu'il en soit, c'est peut-être un bon moyen de les repérer rapidement ;)

Bon dev' à tous
[/Edit]

++
Qwaz

Je viens de tester ta page 'arborescence'. Ta procédure 'Scan_Clic' et vraiment très intéressante et va me permettre de bien avancer. Je me replonge dans les différents exemples que nous donnes avant de reprendre mon propre script. Encore MERCI.

J'aimerais revenir sur iframe si tu veux bien. De quelle manière charges-tu la page pour accéder au code en VBA. Je pensais précédement avoir trouver une astuce:

Code:

---

1 2 3 4

Dim lien As String ' pour afficher nouvelle page lien = item18.ie8_src ie.navigate lien WaitIE ie

---

mais ceci ne fonctionne pas systématiquement et provoque ERREUR d'excétution 70; permission refusée

Salut

Essai avec item18.src, je crois que c'est l'écriture que j'ai utilisé, regarde dans le code du bouton Scan.

++
Qwaz

Salut,

Voici le message que j'obtiens:
No connection could be made because the target machine actively refused it. Ce message s'affiche directement sur la même page html...

Salut

Malheureusement le fonctionnement des frames est complexe et les résultats sont mitigés(d'ailleurs je n’intégrerai pas le fichier avec la recherche approfondit dans le tutoriel), une autre personne (et moi-même après vérification) sommes embêter avec les frames sur une appli pro, il n'est pas possible de naviguer d'une frame à l'autre, les frames en question ne doivent pas être prévues pour être chargées seules.
Pour ton problème spécifique je n'ai pas de réponse... il faudrait trouver un site dont tu pourrais diffuser l'adresse et qui reproduit la même erreur, pour pouvoir faire des essais. Tout ce que je peux en dire, c'est que contrairement à ce que je pensais en départ, une frame n'est pas forcement liées à un contenu web exterieur, j'ai le cas sur l'appli intranet que nous utilisons au boulot, que je regarderais peut-être dans la journée d'ailleurs, donc je vous (toi et Bolof) tiendrais au courant si je trouve une piste intéressante ;)

Bolof (le forumeur dont je parlais un peu plus haut) m'avait proposé un code ou il bouclait le membre frame() de l'objet IE.documents, quand j'aurais un moment, j’intégrerais cette proposition dans le code en faisant en sorte de garder l'organisation telle que ce présente actuellement (avec les frames imbriquées les unes dans les autres).

++
Qwaz

Bonjour,

J'ai revu tout mon code. Cela m'a permis d'utiliser les outils dont tu parles plus haut (getElementbyId). Tes conseils m'ont donc donc été utiles et je t'en remercie. Concernant iframe j'ai testé différentes possibilités mais en vain. J'en suis maintenant à explorer une autre piste: tu parles dans ton tuto de onclick et effectivement, j'ai une ligne dans ma page web qui ressemble à ça:

Code:

---

<a id="CasHREF" onclick="document.getElementById('IFrame1').src='http://117.117.125.123/RemoteExtranetmonentreprise/Report/Suivi.aspx?c=P/j6Xj27Xcs2V5Xb/GhrvimZsduUf3Y/';return false;" href="#">Suivi</a>

---

Malheureusement, si j'applique ta méthode cela ne fonctionne pas...