bonjour,
Je souhaiterais automatiser le fait de récupérer des donnés depuis le site abc bourse.
j'ai fait une macro qui parcourt ma feuille excel et pour chaque code ISIN va sur le site https://www.abcbourse.com/
je trouve la zone de recherche je copie le code isin, je fait la recherche et j'arrive sur la page de la société en question.
Jusque la je m'en suis sortie plutôt bien.

Par contre pour trouver les info dont j'ai besoin j'ai du mal. le code affiche des erreurs qui ne sont pas tout le temps les même alors que je ne fait pas de modif. Ca ne fonctionne pas et je ne comprends pas pourquoi.
voila le premier module qui 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
Global WsValo As Worksheet
 
Sub Macro1()
 
    '1 Selection du l'onglet a traiter
        Set WsValo = ThisWorkbook.Worksheets("valo")
 
    '3 creation du range ListeIsin
        Dim RgListeIsin As Range
        With WsValo
        .Range("B1").Value = 10
            Set RgListeIsin = .Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1))
        End With
 
    '4 On pracourt le tableau et on va sur le net pour chaque ligne.
        Dim cellule As Range
        For Each cellule In RgListeIsin
            Internet cellule
        Next cellule
End Sub
et le module qui ne fonctionne pas completement
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
 
Sub Internet(RgIsin As Range)
 
    'Chargement de la page page Web ABC bourse
    SiteUrl "https://www.abcbourse.com/"
 
    'On lance la recherche du code isin dans la barre de recherche
    RechercheNet "txtAutoComplete", "btnAC", RgIsin.Value
 
    'On recherche les valeurs
    Dim collec As HTMLDivElement
    Set collec = IEDoc.body.all("dis03")
    WsValo.Range("f8").Value = collec.innerText
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
 
End Sub
 
Sub WaitIE(IE As InternetExplorer)
  Do While Not IE.readyState = READYSTATE_COMPLETE
    DoEvents
  Loop
 
End Sub
 
Sub WaitDoc(doc As HTMLDocument)
  Do While Not doc.readyState = "complete"
    DoEvents
  Loop
End Sub
 
Sub SiteUrl(url As String)
    'Chargement de la page web
    IE.navigate url
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
End Sub
 
Sub RechercheNet(IdZone As String, IdBouton As String, Isin As String)
    Dim ZoneRecherche As HTMLInputElement
    Dim BoutonRecherche As HTMLInputButtonElement
    'On pointe la zone de recherche
    Set ZoneRecherche = IEDoc.all(IdZone)
 
    'On entre le code isin
    ZoneRecherche.Value = Isin
 
    'On pointe le bouton ok
    Set BoutonRecherche = IEDoc.all(IdBouton)
 
    'On click sur le bouton ok
    BoutonRecherche.Click
    'On attend le chargement complet de la page
    WaitIE IE
 
    'On pointe le membre Document
   Set IEDoc = IE.document
End Sub
Tout fonctionne jusqu'a la partie 'On recherche les valeurs. la je n'y comprends plus rien.
la variable collec affiche nothing.

merci de votre aide.