Discussion :

[biggione]

je voudrais savoir commvoici mon problème:
je pilote IE depuis excel.

j'ai dans une page web un tableau contenant des infos. (données entourée par <td> et </td>).
j'ai codé en vba un code qui me trouve dans la page web les infos que je retrouve dans ma page excel.
mais dans cette page, la première colonne du tableau contient une checkbox.
voilà se que je souhaiterai faire:

pour chaque donnée retrouvée dans le fichier j'aimerai savoir à quelle ligne du tableau elle se situe pour pouvoir ensuite cocher automatiquement la checkbox correspondante apparamment la checkbox est crée dans chaque ligne par :

Code :

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

1
2
 
<input type="checkbox" name="Selected" value="259649">

Cette ligne est toujours la meme pour chaque ligne, seul la valeur de value change.

Donc voilà le problème: comment repérer la ligne ou se situe le mot trouvé pour pouvoir cocher la chexbox correspondante?

Une idée?

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

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
Sub piloterPageHTML()
    'nécéssite d'activer les références
    'Microsoft HTML Objects Library
    'et
    'Microsoft Internet Controls
 
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Helem As IHTMLElementCollection
    Dim i As Integer
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.navigate "http://www.leSite.html"
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop 'attend la fin du chargement
 
   Set maPageHtml = IE.document
   Set Helem = maPageHtml.getElementsByTagName("input")
 
    '(boucle pour identifier les checkbox)
    For i = 0 To Helem.Length - 1
    If Helem(i).getAttribute("type") = "checkbox" And _
        Helem(i).getAttribute("value") = "259649" Then Helem(i).Checked = True
 
    Exit For
    Next i
 
    '2eme exemple à tester
    For i = 0 To Helem.Length - 1
    If Helem(i).getAttribute("type") = "checkbox" And _
        Helem(i).getAttribute("name") = "selected" And _
        Helem(i).getAttribute("value") = "259649" Then Helem(i).Checked = True
 
    Exit For
    Next i
 
End Sub

bonne journée
michel

[biggione]

ton exemple m'eclairci un peu mais le truc c que je t'ai donné un exemple de chexbox sur ma page et que moi celle que je recherche, je ne sais rien dessus. je sais juste qu'elle se trouve dans la meme ligne du tableau sur ma page HTML donc c là le pb, comment la retrouver pour la checker ensuite?

g penser compter les balises <tr> ou un truc du genre mais n'y a t'il pas plus simple du genre récupérer les coordonnées ligne, colonne du mot trouvé puis ensuite cocher la chexbox se trouvant sur la meme ligne?

C'est possible ou pas? en tout cas j'ai cherché et g rien trouvé mais je pense que cela doit etree possible.

[SilkyRoad]

rebonjour

dans ce cas, si la page html est correctement structurée, tu pourrais te baser sur l'index des lignes et colonnes dans le tableau et l'index du checkbox Helem(i)


pour boucler sur les cellules d'un tableau html :

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
Sub Importer_tableauPageWeb()
    'http://www.developpez.net/forums/viewtopic.php?p=1987826#1987826
    '
    'activer la reference Microsoft HTML Objects Library
    'activer la reference Microsoft Internet Controls
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Htable As IHTMLElementCollection
    Dim maTable As IHTMLTable
    Dim j As Integer, i As Integer
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.navigate "http:\\leSite.htm"
    Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
    Loop
 
    Set maPageHtml = IE.document
    Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
    Set maTable = Htable(0) 'premier tableau dans la page Web
 
    'boucle sur toutes les lignes du tableau
    For i = 1 To maTable.Rows.Length
        'boucle sur les cellules dans chaque ligne
        For j = 1 To maTable.Rows(i - 1).Cells.Length
            Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
        Next j
    Next i
 
End Sub

difficile de répondre de façon plus détaillée sans voir la structure de la page


bonne journée
michel

[biggione]

je sais que c un peu compliqué à comprendre sans voir mais bon je vais essayer de me débrouiller avec le code que tu m'a envoyé.

je v un peu potassé tout ca puis je reviendrai dire où j'en suis d'ici quelque temps.


Mais si d'autre veulent me laisser un message sur le sujet n'hésitez pas.

Merci en tout cas.

[biggione]

merci ca marche!!