Discussion :

[leclercqth]

Bonjour,

Je m'appelle Thomas, je suis chercheur en marketing. Dans ce cadre, je m'intéresse aux comportements d'utilisateurs de plateformes en ligne. Aujourd'hui, je m'intéresse à une plateforme de crowdfunding appelée Ulule.

Pour mener à bien mes recherches, je souhaiterais extraire plusieurs données de cette page (https://fr.ulule.com/discover/all/) pour les mettre dans un excel. J'ai déjà commencé à écrire le code suivant:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+t
'
    Dim IE As New InternetExplorer
    IE.Visible = False
    i = 1
    For i = 1 To 2
    IE.navigate "https://fr.ulule.com/discover/all/" & i
    Do
    DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document
    Dim Funds As String
    Dim Title As String
    Dim Likes As String
    Dim Clock As String
    Dim Percent As String
    Dim URL As String
    k = 1
    For k = 1 To 8
    Title = Trim(Doc.getElementsByClassName("title")(k).innerText)
    Funds = Trim(Doc.getElementsByClassName("funds")(k).innerText)
    Likes = Trim(Doc.getElementsByClassName("likes")(k).innerText)
    Clock = Trim(Doc.getElementsByClassName("clock")(k).innerText)
    Percent = Trim(Doc.getElementsByClassName("percent")(k).innerText)
    cell = (i - 1) * 8 + k
    Cells(cell, 2).Value = Funds
    Cells(cell, 1).Value = Title
    Cells(cell, 3).Value = Likes
    Cells(cell, 4).Value = Clock
    Cells(cell, 5).Value = Percent
    Cells(cell, 6).Value = URL
    Next
    Next
End Sub

Cependant, je souhaiterais avoir l'hyperlien qui est derrier chaque projet sur le site et dont le code est quelque chose du genre href="www.....". J'ai essayé avec un getelementsbytag("a") mais malheureusement cela ne fonctionne pas.

Pouvez-vous m'aider?

Un grand merci déjà aux personnes qui me liront.

Peace

Thomas

[patricktoulon]

bonsoir
pense a metre ton code entre balises "#" la prochaine fois c'est plus lisible pour les lecteur
voila
j'ai simplifier

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
Sub youpi_ulule()
    Dim IE As Object, i As Long, k As Long, cell As Long
    Set IE = CreateObject("internetexplorer.application")
    For i = 1 To 2
        IE.navigate "https://fr.ulule.com/discover/all/" & i
        IE.Visible = False
        Do: DoEvents: Loop While IE.readyState <> 4 Or IE.busy
        Dim Doc As Object
        Set Doc = IE.document
        k = 1
        For k = 1 To 8
            cell = (i - 1) * 8 + k
            Cells(cell, 2).Value = Trim(Doc.getElementsByClassName("funds")(k).innerText)
            Cells(cell, 1).Value = Trim(Doc.getElementsByClassName("title")(k).innerText)
            Cells(cell, 3).Value = Trim(Doc.getElementsByClassName("likes")(k).innerText)
            Cells(cell, 4).Value = Trim(Doc.getElementsByClassName("clock")(k).innerText)
            Cells(cell, 5).Value = Trim(Doc.getElementsByClassName("percent")(k).innerText)
            Cells(cell, 6).Value = Doc.getElementsByClassName("title")(k).Children(0).href
        Next
    Next
    IE.Quit
End Sub

vu d'un de tes elements dans l arborescence c'est donc le premier enfant de l'élément de la classe "title" en l'occurrence la balise "a"
j'aurais pu faire aussi Cells(cell, 6).Value = Doc.getElementsByClassName("title")(k).getelementsbytagname("a")(0).href

[leclercqth]

Un très grand merci pour votre aide. Je trouve cela génial le temps que vous avez accordez à mon problème et la solution que vous avez trouvé en si peu de temps. Je vais continuer ma route sur ce forum car des contributions comme la votre me donne envie de mettre ma pierre à l'édifice.

Bonne fin de journée,

Thomas

[leclercqth]

Rebonjour,

Dans la même idée, je dois aller prendre dans la page suivante: http://fr.ulule.com/madatrek-3/ les informations suivantes:




Voici le code que j'ai pour le moment:

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
 
Sub Macro2()
    Dim IE As New InternetExplorer
    Dim Creator As String
    IE.Visible = False
    IE.navigate "http://fr.ulule.com/madatrek-3/"
    Do
    DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document
 
 
    Next
End Sub

Je me rends bien compte que je demande pas mal d'information. Si cela prends trop longtemps d'écrire le reste du code. N'hésitez pas à me montrer l'exemple. j'adapterai pour le reste.

Merci d'avance,

Bonne soirée,

Thomas

[patricktoulon]

bonsoir


déjà montre moi un départ de code comme j'ai pu le formuler pour la précédente demande

sinon j'ai l'impression de montrer et d'expliquer pour rien

chose a retenir:

1 les constante du genre "READYSTATE.." doivent être définies

2 late binding VS early binding(déclaration tardive) explication très clair dans le tuto de Qwazerty

3 gestion d'attente de IE (voir busy) dans un (do / loop while)

bref regarde encore comment je démarre internet pour l'exploration et reproduit moi au moins ce départ, que j'ai l'impression que tu ai saisi quelque chose

[leclercqth]

Bonjour,

Je comprends tout à fait. J'ai adapté la base que vous m'aviez proposée à mon nouveau problème. Ca marche ! :-)

J'ai surtout un problème avec les hiérarchies.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro3()
    Dim IE As Object, i As Long, k As Long, cell As Long, Funds As String
    Set IE = CreateObject("internetexplorer.application")
        IE.navigate "https://fr.ulule.com/madatrek-3/"
        IE.Visible = False
        Do: DoEvents: Loop While IE.readyState <> 4 Or IE.Busy
        Dim Doc As Object
        Set Doc = IE.document
        Funds = Trim(Doc.getElementsByClassName("amount-text")(0).innerText)
        MsgBox Funds
    IE.Quit
End Sub

Merci d'avance pour le temps que vous accordez à mon problème et donc à l'avancement de ma thèse.

Bien à vous,

Thomas