10253 sujets

JavaScript, DOM et API Web HTML5

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!
Bonjour,

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):


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%20affaires%20societe.com%20sovitrat&t=all



Merci pour votre aide!
Modifié par aurore01 (13 Mar 2018 - 17:27)