Discussion :

[Atomix85]

Bonjour à tous !

J'ai beau chercher tous les moyens possibles, je n'arrive pas à solutionner le problème suivant :
J'ai lancé un site web dans un webbrowser, puis je veux cliquer sur un lien contenu dans celui-ci. J'ai donc utilisé :

Code :

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

1
2
3
4
5
6
Dim myLink As HtmlElement
For Each myLink In WebBrowser1.Document.Links
    If myLink.innertext.Contains("Recap DM") Then
        WebBrowser1.Navigate (myLink.GetAttribute("href"))
    End If
Next

... Dans un Private Sub. Ce code a l'air de bien fonctionner, mais j'ai le "HTMLElement" n'est pas du tout reconnu ("type définit par l'utilisateur non définit").

=> Savez-vous s'il faut déclarer quelque chose de spécial au préalable pour utiliser ce "HTMLElement" ?
Je ne sais pas s'il y a un lien, mais dans la même macro, j'ai des "getElementById" qui fonctionnent nickel ! Une idée ?

[Marc-L]

Bonjour,

activer Microsoft HTML Object Library …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Atomix85]

J'avais bien activé cette librairie auparavant, mais il semble qu'elle avait disparu de la liste !
J'ai dû la réinstaller, fermer Excel, puis réessayer, mais ça ne fonctionne toujours pas...Pourtant cette librairie et celle de Microsoft Internet controls sont bien affichees et selectionnees a present !

[patricktoulon]

re

Code :

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

1
2
3
4
5
Dim myLink
 For Each myLink In WebBrowser1.Document.Links
    If myLink.innertext.like "*" & "Recap DM" &"*"  Then  WebBrowser1.Navigate myLink.href
    End If
 Next

ou bien encore

Code :

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

1
2
3
4
5
6
7
dim mesA
with webbrowser1
set mesA=.document.getelementsbytagname("a")
for i= 0 to mesA.length
if mesA(i).innertext like "*" & "Recap DM" &"*"  Then .navigate mesA(i).Href:exit for 
next
end  with

ou bien encore

Code :

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

1
2
3
4
5
6
dim elem
with webbrowser1
for each elem in .document.all
if elem.innertext like "*" & "Recap DM" &"*"  Then .navigate elem.Href:exit for
next
end with

[Marc-L]

Pourtant cette librairie et celle de Microsoft Internet controls sont bien affichees et selectionnees a present !

C'est donc une erreur dans la déclaration de la variable !

La déclarer en Object dans un premier temps puis vérifier son type exact durant l'exécution via la fenêtre des Variables locales.

Sinon tester sur un autre ordinateur …

[Atomix85]

Bon, déjà merci beaucoup à vous deux !
Ensuite voici le résultat de l'application de tes différents codes dans ma macro, Patrick :
- Le 1er me renvoie "Erreur de syntaxe" sur la 2eme ligne
- Le 2eme FONCTIONNE NICKEL !!!
- Le 3eme me renvoie l'erreur : "erreur 438 : Propriété ou méthode non gérée par cet objet" sur la 4eme ligne (sur ".navigate elem.href").

Ce qu'il faut retenir, c'est que la solution est trouvée !! Merci encore, sujet résolu

[patricktoulon]

re et oui le 3 eme je sais pourquoi il plante
sui-je bete hein!!!

en effet c'est un peu traitre la methode innertext

exemple si tu a dans une page web

Code :

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

<P><a Href="http....">toto</a></p>

et que je fait
msgbox .getelementsbytagname("p")(0).innertext
il va me donner "toto" forcement
donc pour la 3 eme ceci devrait marcher

Code :

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

1
2
3
4
5
6
dim elem
with webbrowser1
for each elem in .document.all
if  elem.tagname="a" and elem.innertext like "*" & "Recap DM" &"*"  Then .navigate elem.Href:exit for
next
end with

voila voila vraiment des fois j'ai le cerveau en marmelade

re
et pour l'erreur du premier c'est de ma faute j'ai eu une crise de vache folle sur la touche"." il faut supprimer le point devant "like"

Code :

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

If myLink.innertext like "*" & "Recap DM" &"*"  Then  WebBrowser1.Navigate myLink.href

et voila c'est fini
tiens ca me rappelle une chanson ca !!!