Code qui marche plus avec IE7

[fifounet]

Bonjour
J'ai une macro sous vb qui marche très bien avec windows XP et IE6
et qui après changement PC ne fonctionne plus sous vista et IE7
Quelqu'un peut il me dépanner ?
c'est pour récupérer du texte dans une page web.
Je ne vous mets pas le code en entier:

rech_page:
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate adresse_xx
time2 = Time
Do Until IE.ReadyState = READYSTATE_COMPLETE
time3 = time2 - Time
' si plus de 5 secondes sans reponse, on reessaye d'acceder a la page internet
If Val(Right(time3, 2)) > 5 Then GoTo rech_page
Loop 'attend la fin du chargement

Set doc = IE.document
ch = doc.body.innerHTML

' affichage de la page
' ================
c = 500
Do Until c = Len(ch)
If Mid(ch, c, 20) = "session=precision%3D" Then
deb_nom = c + 20
c = deb_nom
c = InStr(c, ch, "%")
no_xx = Mid(ch, deb_nom, c - deb_nom)

End If

J'espère que ça suffit
merci

 

[fifounet]

Re : Code qui marche plus avec IE7

Bonjour
Vraiment personne pour me répondre ??