Bonjour,

Dans le cadre de recherches que je mène, je souhaiterais extraire les dons faits une plateforme de crowdfunding.Ex: http://www.kisskissbankbank.com/fr/p...s/contributors

J'ai déjà fait le code suivant et il fonctionne

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
Sub step3()
 
    On Error Resume Next
    Dim IE As New InternetExplorer
    Dim News As String
    Dim Comments As String
    Dim Contributors As String
    Dim Follower As String
    Dim i As Integer
    Dim t As Integer
    t = 1
    i = 0
    For i = 0 To 87
    IE.Visible = False
    IE.navigate "http://www.kisskissbankbank.com/fr/projects/bigdream/contributors"
    Do
    DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document
    Cells(t, 2) = Doc.getElementsByClassName("user-thumb")(i).getElementsByClassName("amount")(0).innerText
    t = t + 1
    Next
    End Sub
Le problème est que lorsqu'il y a plus de 50 donateurs. Il y a un bouton "en voir plus" et là je ne sais pas comment faire pour aller chercher les dons qui se cachent derrière ce bouton.

Pouvez-vous m'aider?

Bonne journée,

Thomas