Arborescence VBA position d'un lien

**aurore01** · 12/03/2018, 17h46

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!

**Phil Free** · 13/03/2018, 09h46

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.

**Menhir** · 13/03/2018, 10h30

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

**aurore01** · 13/03/2018, 17h32

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**Marc-L** · 13/03/2018, 17h54

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, …

**patricktoulon** · 13/03/2018, 18h41

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

**mjpmjp** · 13/03/2018, 19h00

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

@+JP

**Marc-L** · 13/03/2018, 19h01

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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