Bonjour,
Je travaille sur de l'extraction de données des pages du site http://www.kisskissbankbank.com/fr/discover/successful . Comme vous le verrez, il y a plusieurs projet sur le site et je voudrais que mon document excel reprenne chaque lien vers chaque projet, non seulement pour la première page mais également pour les autres pages (1077 pages). J'ai alors écrit le code suivant:
J'ai cependant du faire une erreur quelque part car après les premières pages extraites, tout s'arrête et j'ai "run time error 91".Cela me rend fou
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 step1() Dim IE As New InternetExplorer Dim t As Integer Dim j As Integer Dim i As Integer t = 1 j = 1 i = 0 For j = 1 To 1 For i = 0 To 8 IE.Visible = False IE.navigate "http://www.kisskissbankbank.com/fr/discover/successful?page=" & j Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim Doc As HTMLDocument Set Doc = IE.document Cells(t, 1) = Trim(Doc.getElementsByClassName("project")(i).getElementsByClassName("widget")(0).getElementsByClassName("description")(0).getElementsByTagName("a")(0).href) t = t + 1 Next Next End Sub
Un petit coup de main serait nécessaire. Si quelqu'un a déjà rencontré ce problème, n'hésitez pas à m'indiquer où je peux trouver la solution.
Merci d'avance pour votre aide.
Bonne journée,
Thomas
Partager