Trouver une image gif dans une page web et faire u

[tarvel]

Bonjour,
J'ai regardé sur la Wiki page 2 de Michel Xld concernant 'Compter le nombre d'images d'une page html'...mais j'aimerais dans ma macro après avoir posé 'Set imgHtml = maPageHtml.images.Item' en fait simplement faire un goto etc...lorsque une image de type 'src = 'files/images/toto.gif'est trouvée!!!
D'une façon plus générale...faire un find, instr sur image, ou texte dans une page web...si ok...donc...goto etc!!!
Merci de votre aide
:unsure:

Message édité par: tarvel, à: 09/10/2005 14:15

 

[MichelXld]

bonjour

j'espere que cette adaptation pourra t'aider


Private Sub CommandButton3_Click()
Dim maPageHtml As HTMLDocument
Dim imgHtml As HTMLImg
Dim i As Integer
Dim Cible As Boolean

Cible = False
WebBrowser1.navigate 'http://www.excel-downloads.com'
Do
DoEvents
Loop While WebBrowser1.Busy 'attend la fin du chargement pour continuer la procedure

Set maPageHtml = WebBrowser1.document
MsgBox 'Il y a ' & maPageHtml.images.Length & ' images dans la page'

For i = 0 To maPageHtml.images.Length - 1 'boucle sur les images
Set imgHtml = maPageHtml.images.Item(i)

If InStr(1, imgHtml.src, 'logoessais.gif') > 0 Then
Cible = True
Exit For
End If
Next i

If Cible = True Then
MsgBox 'trouvé'
Else
MsgBox 'pas trouvé'
End If
End Sub



bon apres midi
MichelXld

Message édité par: michelxld, à: 09/10/2005 14:54

 

[tarvel]

Je viens de tester la macro...ça fonctionne nickel.
Je voudrais tester pas seulement avec des images mais aussi avec du texte!
Merci d'avoir répondu très vite!

 

[MichelXld]

rebonsoir

pour une recherche de texte , tu peux essayer


Private Sub CommandButton3_Click()
Dim maPageHtml As HTMLDocument
Dim textePage As String

WebBrowser1.navigate 'http://www.excel-downloads.com'
Do
DoEvents
Loop While WebBrowser1.Busy 'attend la fin du chargement pour continuer la procedure

Set maPageHtml = WebBrowser1.document
textePage = maPageHtml.documentElement.innerText

If InStr(1, textePage, 'Wiki') > 0 Then
MsgBox 'trouvé'
Else
MsgBox 'pas trouvé'
End If
End Sub

bonne soiree
MichelXld

 

[tarvel]

Encore merci pour tout!!!