Bonjour,

J'ai une macro qui permet notamment de récupérer les données d'un site internet.

Pour l'exemple on va prendre un site connu celui de "leboncoin".

Or j'arrive très bien à récupérer les données de la première page.

En revanche, je ne sais pas récupérer celles des feuilles suivantes.

Je pensais faire une boucle sur les pages mais je sais pas si cela est possible. Si vous avez une méthode approprié?? Peut-être avec un clic sur page suivante.

Pour info le code qui récupère la première page du site.

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
40
41
42
43
44
 
Sub extraction()
 
On Error GoTo sortie:
Dim url As String: url = "https://www.leboncoin.fr/voitures/offres/provence_alpes_cote_d_azur/?th=1&q=swift"
Dim element As Object, souselement As Object
 
Dim IEDoc As HTMLDocument
Dim IE As New InternetExplorer
 
IE.navigate url
IE.Visible = True
 
Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop
 
Set IEDoc = IE.document
Set element = IEDoc.getElementsByClassName("tabsContent").Item(0)
 
Dim numLigne As Integer, numColonne As Integer
 
For numLigne = 0 To element.Children.Length - 1
    Debug.Print numLigne
    Set souselement = element.Children.Item(numLigne)
    For numColonne = 0 To souselement.Children.Length - 1
        Cells(numLigne + 1, numColonne + 1).Value = souselement.Children.Item(numColonne).innerText
    Next numColonne
Next numLigne
 
 
'libération de la mémoire
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Import web terminé sans erreur"
Exit Sub
 
sortie:
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Erreur. Vérifiez votre connexion à Internet"
End Sub
En vous remerciant par avance.

Bonne journée