Quel Numero Ce HTMLAnchorElement >> Doc.Links(1) !! |
Titre du sujet : Quel Numero Ce HTMLAnchorElement >> Doc.Links(1) !! par titantt le 21/12/2014 08:22:53 bonjour a tous
je debute en vba etj'ai reussi avec les tutos et les forums a cree un petit bout de code qui ouvre un lien sur une page internet
pour ce faire j'ai utilise la methode anchorelement et doc links ( corriger moi si je me trompe )
en gros je dit a mon fichier vba selection tous les liens interent de la page ( htlm anchor element )
et doc link precise quel lien j'ai choisi ( 1 ) pour le lien 1 2 pour le lien 2 de la page ect ...
Sub LienHyperActu() Range("A4").Select Selection.ClearContents ' efface la case a4 du classeur excel ' ' cretaion des ??? je sais plus le nom Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") Dim Cible As HTMLAnchorElement Dim Doc As HTMLDocument IE.navigate "http://www.patatorleplusfort.com" ' ouverture d'internet explorer ' IE.Visible = True ' on rend la page d'internet visible ' Do Until IE.readyState = READYSTATE_COMPLETE ' on attend que sa se charge' DoEvents Loop ' c'est bon c fini de charger Range("A4") = "cool" ' ecrit sur excel que la page est bien charge moi ca m'a aide Set Doc = IE.Document ' dis a vba que sur la page internet Set Cible = Doc.Links(8) 'le lien a prendre sera le lien cible et qui sera 'egale au numero links ( ici 8 ) Cible.Click ' ( dis de cliquer sur sur le lien prefini End Sub
bon voila sans doute on peux otpimiser mon code ect ... mais peux m'importe , mon bout de code me convient bien
ce que je voudrais savoir , c'est comment definir de facon simple quel lien a quel numero ( de doc link )
si j'ai une page avec 100 liens avec des menus sur le dessus , sur le cote , et encore d'autres ailleurs a part les tester 1 par 1 comment puis je dire que le lien SAVpatator3000 = 53 ieme lien de la page internet
ps je sais pas si je suis tres clair
|
Forums