Discussion :

[biggione]

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

[SilkyRoad]

rebonjour

ta procedure fonctionne chez moi

tu peux tester cette adaptation, bien que je ne vois pas l'interet de faire une selection dans la page puisque tu souhaite piloter de sCheckbox (si j'ai bien compris tes messages precedents).

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
Sub IE_V02()
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Rg As IHTMLTxtRange
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate ("http://www.developpez.net/forums/showthread.php?t=193844")
    IE.Visible = True
 
    Do While IE.Busy
    Loop
 
    'initialisation
    Set maPageHtml = IE.Document
    Set Rg = maPageHtml.body.createTextRange
 
        Rg.findtext "InternetExplorer"
        If (Rg.findtext("InternetExplorer") = True) Then
            Rg.Expand ("word")
            Rg.Select
        End If
 
End Sub

bonne soiree
michel

[biggione]

merci mais en fait le probleme venait juste du delai de chargement trop long de la page web qui m'intéressait.

en tout cas merci encore pour ton aide.