Arborescence VBA position d'un lien

Version imprimable

12/03/2018, 17h46
aurore01

Arborescence VBA position d'un lien

Bonjour à tous!

Je commence tout juste en VBA et peut-être ma question est-elle évidente mais je n'ai rien trouvé pour l'instant!

Je ne parviens pas à trouver la position d'un lien sur une page, qui me permettrait de cliquer dessus via VBA grâce à la commande suivante: ie.document.getElementsByTagName("a")(???).Click
Toutes les suggestions sont les bienvenues et merci 1000 fois!
13/03/2018, 09h46
Phil Free

Bonjour,

cela vas être difficile de vous aidez avec aussi peu de d'info !

un de code, le lien de la page qui contient le lien, la méthode utilisée ou envisagée etc. bref tous ce qui peu aider à aider est le bien venu.
13/03/2018, 10h30
Menhir

Ceci peut t'aider : https://excel.developpez.com/faq/?pa...#HyperlinkHtml

Oui bien sur, pardon!

Alors entre temps j'ai trouvé un code qui devrait convenir a mon probleme (qui est donc de cliquer sur un lien qui n'a pas d'identifiant):

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
 
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim DivParent As HTMLSelectElement
Dim Enfants As HTMLSelectElement
Dim Petits_Enfants As HTMLSelectElement
Dim Flag As Boolean
 
IE.navigate "https://www.qwant.com/?q=chiffre%20affaires%20societe.com%20sovitrat&t=all"
IE.Visible = True
WaitIE IE
Set IEDoc = IE.document
Application.Wait Time + TimeSerial(0, 0, 2)
Set DivParent = IEDoc.getElementsByTagName("h3")(0)
For Each Enfants In DivParent.Children
        If Enfants.innerText = "societe.com/societe" Then Enfants.Click: Flag = True: Exit For
    If Flag Then Exit For
Next
Set IE = Nothing
End Sub
 
Sub WaitIE(IE As InternetExplorer)
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop

J'aimerais cliquer sur le lien du premier résultat mais cela ne fonctionne pas, voici la page:

https://www.qwant.com/?q=chiffre%20a...sovitrat&t=all

Merci pour votre aide!

13/03/2018, 17h54
Marc-L

De la bonne observation nait la solution …

Bonjour,

ce serait tellement plus simple en utilisant une classe d'un élément proche via getElementsByClassName …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
13/03/2018, 18h41
patricktoulon

re

re
mauvaise nouvelle en exploration IE se ne sera tres dur because protection "on window" qui rend casi impossible une recuperation 100%conforme

j'ai tester ca m'a rendu chevre:ptdr:;)
13/03/2018, 19h00
mjpmjp

bonjour,
avec un WebBrowser,
la collection de lien = WebBrowser.Links
le nombre de lien = WebBrowser.Links.Length

@+JP

Aucun souci de mon côté comme exposé dans mon précédent post, surtout avec Qwant, trop facile ! …

Code:

1
2
3
4
5
6
7
8
9
10
Sub DemoIE1a()
    With New InternetExplorer
             .Navigate "https://www.qwant.com/?q=chiffre%20affaires%20societe.com%20sovitrat&t=all"
             .Visible = True
              While .Busy Or .ReadyState < READYSTATE_COMPLETE:  DoEvents:  Wend
        With .Document.getElementsByClassName("title")
            If .Length Then .Item(0).all(0).Click
        End With
    End With
End Sub

Ou encore en blindant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DemoIE1b()
    With New InternetExplorer
             .Navigate "https://www.qwant.com/?q=chiffre%20affaires%20societe.com%20sovitrat&t=all"
             .Visible = True
              While .Busy Or .ReadyState < READYSTATE_COMPLETE:  DoEvents:  Wend
        With .Document.getElementsByClassName("title")
            If .Length Then
                With .Item(0).getElementsByTagName("A")
                    If .Length Then .Item(0).Click
                End With
            End If
        End With
    End With
End Sub

___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

13/03/2018, 19h09
aurore01

Merci beaucoup a tous je regarde cela des que je peux! (ce qui sera la nuit pour vous, j'habite aux us)
13/03/2018, 19h14
Marc-L

Si cela ne fonctionne pas de ton côté (toujours possible avec IE !)
merci d'indiquer alors la version d'Excel, d'IE et de Windows et quel est le but final …

Bonjour, merci pour les suggestions.

J'avais lu autre part que getElementsByClassName ne fonctionnait pas!

J'ai essayé le code suggéré par Marc-L et cela ne fonctionne pas, il ne se passe rien. Je ne comprends pourquoi tu essayes de rattraper le lien avec classname= 'title', le lien que j'essaye d'activer est le suivant:
Code:

1 2 <a href="https://www.societe.com/societe/sovitrat-05-450619697.html" rel="noopener" target="_blank" onmousedown="LinkHelper.logHandler(this, Event, {AjaxRoute: 'url', position: '1', t: 'default', domain: 'web', url: 'https://www.societe.com/societe/sovitrat-05-450619697.html', type: 'serp'})" onclick="LinkHelper.clickHandler(this, Event)" onmouseup="LinkHelper.mouseUpHandler(this, Event)">SOVITRAT 05 (LYON 6EME) Chiffre d'affaires ... - societe.com</a>
Merci encore!

14/03/2018, 19h22
Marc-L

• getElementsByClassName fonctionne bien de mon côté, qui plus est en déclaration anticipée (référence activée) !

• Si tu veux je te fais une vidéo car c'est cette classe qui sur ma version apparaît pour le parent de l'anchor !
Mes trois variantes de code pilotant IE fonctionnant toutes de mon côté …

Mais j'ai prévenu car c'est une habitude avec IE, d'une version à une autre, d'un Windows à un autre,
cela peut très bien fonctionner ou pas ! Le pire rencontré : sous deux versions 11 j'ai eu des résultats différents !

Donc j'en reste là en attendant enfin une réponse à mon post précédent;
de la modération en retard m'attendant sur un autre forum …
15/03/2018, 02h12
aurore01

Bien sûr désolée j'étais sûre d'avoir donné les versions! Excel 2010 et internet explorer 11, version 11.248.16299.0 versions des mises à jour 11.0.51

Une vidéo serait parfaite, si cela ne te prend pas trop de temps!

Merci encore

De l'observation …

La vidéo aurait juste prouvé le bon fonctionnement de mon côté mais ne t'aurait rien apporté de plus …

J'ai testé avec une version antérieure d'IE, mes deux codes pouvant fonctionner sous IE11 mais juste en changeant
un p'tit détail : l'URL ! Car je n'avais pas remarqué la redirection vers la version Lite de Qwant certainement due
à mon ancienne version. J'ai donc pu tester une version 11 sur un autre ordinateur avec succès, en partant
du principe qu'il y a forcément une première réponse sur laquelle cliquer donc sans blinder cela donne :
Code:

1 2 3 4 5 6 7 8 Sub DemoIE2() With New InternetExplorer .Navigate "https://lite.qwant.com/?q=chiffre+affaires+societe.com+sovitrat&t=all" .Visible = True While .Busy Or .ReadyState < READYSTATE_COMPLETE: DoEvents: Wend .Document.getElementsByClassName("title")(0).all(0).Click End With End Sub
Sinon sur la version 11 avec ton URL initiale, juste en observant l'élément via l'outil d'inspection du navigateur :
Code:

1 2 3 4 5 6 7 8 Sub DemoIEv11() With New InternetExplorer .Navigate "https://www.qwant.com/?q=chiffre%20affaires%20societe.com%20sovitrat&t=all" .Visible = True While .Busy Or .ReadyState < READYSTATE_COMPLETE: DoEvents: Wend .Document.getElementsByClassName("result--web--title")(0).parentElement.Click End With End Sub
La version Lite étant évidemment un peu plus rapide à charger et fonctionnant avec diverses versions d'IE,
la version normale conservant sous IE11 l'onglet initial de la recherche, tu as maintenant le choix !

Sinon il y aurait l'alternative de récupérer l'URL via une requête puis de l'ouvrir dans un navigateur
et pas forcément IE, tout dépendant aussi du but final …

___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

je me permet de poster une autre méthode peut être plus "basique" et qui fonctionne sur la base de l'URL lite de Qwant.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Demo()
    ' déclaration des variables
    Dim ObjectIE As Object, MesElements As Object
    Dim MonURL As String, MonURLExtention As String, ValeurRecherche As String
    Dim PremiereURL As String
 
 
    MonURL = "https://lite.qwant.com/?q="
    ValeurRecherche = "chiffre affaires societe.com sovitrat"
    MonURLExtention = "&t=all"
    MonURL = MonURL & ValeurRecherche & MonURLExtention
    Debug.Print MonURL
    ' initialisation
    DoEvents
 
    Set ObjectIE = CreateObject("InternetExplorer.Application")
    'ObjectIE.Visible = True
    DoEvents
    ObjectIE.Navigate MonURL
 
 
    ' attente de la fin de chargement de la page
    Do While ObjectIE.Busy: DoEvents: Loop
 
    ' On continu la recherche uniquement si la page a été chargée
    If Not Left(ObjectIE.Document.Title, 8) = "HTTP 404" And Not Left(ObjectIE.Document.Title, Len("Login Authorization Failed")) = "Login Authorization Failed" And Not Left(ObjectIE.Document.Title, 3) = "401" Then
       Set MesElements = ObjectIE.Document.getElementsBytagname("p")
        For i = 0 To MesElements.Length - 1
            If MesElements(i).getAttribute("class") = "url" Then
                Debug.Print MesElements(i).outertext
                PremiereURL = MesElements(i).outertext
                Exit For
            End If
        Next
    End If
    ObjectIE.Navigate PremiereURL
    ' attente de la fin de chargement de la page
    Do While ObjectIE.Busy: DoEvents: Loop
    ObjectIE.Visible = True
    stop 'pour la demo on met le code en pause ici. A remplacer par ce que tu veux faire
 
    'partie à mettre en fin de traitement pour terminer proprement
    On Error Resume Next
    ObjectIE.Quit
    On Error GoTo 0
    Set ObjectIE = Nothing
End Sub

edit : j'ai ajouté la navigation sur le premier lien vu que c'est ta demande d'origine.

ReEdit : j'ajouterais que cette méthode qui ne passe par un clique sur l'url, mais qui récupère l'url à donc comme avantage de contourner la redirection et d'aller directement sur la page souhaitée.

15/03/2018, 18h00
Marc-L

Bonjour Phil.

C'est un peu l'idée de mon alternative et sans même ouvrir IE pour la recherche initiale
mais sans connaître le but final je me suis donc abstenu (pas eu le temps non plus) …

J'en profite aussi pour dire la méthode évoquée dans les posts #3 & 7 fonctionne aussi
soit à la hussarde avec un index d'élément fixe (en priant pour qui le reste !)
soit plus finement en parcourant la collection des liens en scrutant le contenu d'une propriété de
ses éléments (ou encore celle d'un parent ou d'un enfant) en réalisant une logique irréprochable …
15/03/2018, 20h45
aurore01

Bonjour,

merci énormément pour toutes vos suggestions, la méthode proposée par Marc-L avec la version Lite de Qwant fonctionne très bien!

Merci encore