Rapport de message :*
 

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