Quelqu'un pourrait'il m'aider? je pilote IE depuis Excel.
je n'ai qu'une question: pourquoi lorsque je recherche un mot par la méthode findtext("...") je ne le trouve pas alors qu'il est bien présent dans la page Html?

j'ai remarqué que le texte que je recherche est entouré des balise html suivante <td> ... </td>

Comment faire pour le trouver?

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
 
Sub IE()
 
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Helem As IHTMLElementCollection
    Dim Hx As IHTMLInputElement
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate ("http://le_site_en_question")
    IE.Visible = True
 
    Do While IE.Busy
    Loop
 
    'initialisation
    Set maPageHtml = IE.document
    Set Helem = maPageHtml.getElementsByTagName("input")
    Set rg = maPageHtml.body.createTextRange
    For i = 1 To 4
        rg.findtext (Range("G" & i).Value)
        If (rg.findtext(Range("G" & i).Value) = True) Then
            rg.Expand ("word")
            rg.Select
            MsgBox "l'argument " + Range("G" & i).Value + " trouvé"
        End If
        Range("E1").Value = rg.Text
    Next i
 
    MsgBox "Fin de la recherche"
    IE.Quit
    Set IE = Nothing
 
End Sub