Discussion :

[leclercqth]

Bonjour,

Je suis chercheur en comportement des consommateurs sur les sites internet. Dans ce cadre, je souhaiterais étudier la plateforme FanVoice (https://www.fanvoice.com/banque/appli-bancaire-expe/). A cette fin, j'essaie depuis plusieurs jours de créer une MACRO qui me permettrait de cliquer sur le "Plus d'idées" afin de pouvoir directement afficher tous les commentaires sur la page.

En cherchant, j'ai trouvé un code qui pourrait fonctionner. Le code ci-dessous est juste pour cliquer une fois mais après je pense pouvoir m'en sortir avec une boucle.

Cependant, quand je fais tourner la MACRO, il ne se passe rien. C'est pourquoi je vous appelle à l'aide. Y a-t-il une erreur dans mon code?

Merci beaucoup pour votre aide.

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
 
 
Sub step3()
 
    Dim IE As New InternetExplorer
    Dim coll_liens As IHTMLElementCollection
    Dim Lien As HTMLGenericElement
 
    IE.Visible = True
    IE.navigate "https://www.fanvoice.com/banque/appli-bancaire-expe/"
    Do
    DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document
    Set coll_liens = Doc.getElementsByTagName("span")
        For Each Lien In coll_liens
            If Lien.innerText = "Plus d'idées" Then
                Lien.Click
            End If
        Exit For
    Next
    End Sub

[ARTURO83]

Bonjour,

Le seul moyen de savoir ce qui cloche, c'est de faire du pas à pas. Il y a sûrement une ligne qui génère une erreur et fait sortir du programme.

Cdlt

[unparia]

Bonjour

On pourra toujours "se frotter le bec" si le site est protégé pour ne pas laisser passer une robotisation ....

[zenpbb]

Bonjour leclercqth,

au moins 2 problèmes dans ton code :
1- instruction Exit For mal placée → à déplacer avant le End If,
2- tu recherches un élément span, qui contient le texte cherché, mais n'est pas cliquable. Essaie de remonter à l'élément button en utilisant la propriété parentElement avant de cliquer.

Petit conseil, lors de l'exécution d'un code, s'il semble ne rien se passer, ne pas hésiter à passer en pas à pas pour vérifier, car il se passe toujours quelque chose, mais pas forcément ce qui est souhaité !

[leclercqth]

MERCI BEAUCOUP pour les corrections et les conseils. J'ai trouvé la solution.