Discussion :

[thezou]

Bonjour,

J'essaye de récupérer des données d'une page web pour créer un tableau Excel. Les données sources ne sont malheureusement pas dans un tableau HTML mais dans sa structure.

J'ai un tableau de 10x10 cases qui contient des images.
Pour chaque case j'ai quelque chose qui ressemble à :

Code :

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

1
2
3
<td onclick="info('<div class=menu2> <b>toto [1:1]</b> <br /></div>');"
style="background-image:url('images/icone.png');">&nbsp;
</td>

Ce que je cherche à récupérer c'est "toto [1:1]" afin de l'écrire dans mon tableau excel.

Après pas mal de tentatives et de recherches sur le forum, j'arrive à me connecter sur le site internet, à m'authentifier, et à afficher la page qui m'interesse.

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 connexion()
'
' Connection SI
'
 
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
    Dim Htable As IHTMLElementCollection
    Dim maTable As IHTMLTable
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("http://www.monsite.com/")
 
     ' attente de fin de chargement
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("pseudo").Item
     DOCelement.Value = "thezou"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("pass").Item
     DOCelement.Value = "mdp"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit
 
     debut = Timer
        Do While Timer < debut + 2
        DoEvents
     Loop
 
     ie.Navigate ("http://www.monsite.com/page.html")
 
'
End Sub

Comme les valeurs qui m'interessent ne sont pas directement affichées, j'imagine que je doit procéder en utilisant le source HTML puis en le parsant.

- Comment accéder au code source HTML d'une page affichée dans IE via VBA et le stoquer dans une variable ?
- Comment rechercher une chaine de caractère entre 2 chaines (pour moi chaine1 = "<div class=menu2> <b>", chaine2 = "</b> <br /></div>")

Merci pour votre aide,
Thezou

[thezou]

Bonjour,

Après quelque péripéties, j'ai fini par trouver la solution d'utiliser innerHTML.

Code :

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

1
2
3
        Dim temp As String
 
        temp = IEdoc.DocumentElement.innerHTML

Je devrais m'en sortir du coup avec les bon vieux Instr & Mid.

A bientôt,
Thezou