Discussion :

[glagaffe]

bonjour je souhaiterai aller prendre une info qui varie quotidiennement sur un page internet le code dessous me permet d'ouvrir IE d'aller chercher un titre mais la valeur que je veux selectionner est située juste après..
par exemple dans le code ci dessous je cherche "maPageHtml" mais je voudrais copier coller le mot situé juste après!
mais comme il change chaque jour...

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 "maPageHtml"
        If (Rg.findtext("maPageHtml") = True) Then
            Rg.Expand ("word")
            Rg.Select
        End If
 
End Sub

Si je ne suis pas assez clair, dites le moi. je développerai!

merci d'avance de votre aide!

[ouskel'n'or]

Je vois que tu utilises "Expand", tu ne peux pas utiliser "MoveRight" comme dans word ?

Code :

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

MoveRight ("Word")

A tout hasard...

[glagaffe]

non il m'affiche un message d'erreur a cette ligne lorsque que je change

Rg.Expand ("word")

par

Rg.moveright ("word")

je suis pas tres bon loin de là !!

je ne comprends pas ce code, je l'ai trouvé sur votre forum.