Rapport de message :*
 

Re: Récupérer une phrase sur un site internet

Titre du sujet : Re: Récupérer une phrase sur un site internet
par Icedarts le 31/05/2023 21:31:25

Grande avancée aujourd'hui.

Alors en farfouillant a droite a gauche j'ai trouvé un code qui fonctionne, bon il fonctionne sur IE mais ça c'est pas grave lol

Et j'ai eu une idée pour contourner tous les problèmes d'identifiants de session et de clique sur des liens javascript.
J'ai tout simplement mis une pause dans le code et je le fais moi-même ^^

 


Sub test()


   Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object


   Set IE = CreateObject("InternetExplorer.Application")


   IE.Visible = True


   IE.Navigate ("www.dl-ligue.com")


Call pause


   Do Until IE.ReadyState = 4
        DoEvents
    Loop

   Set IEdoc = IE.document


   Set DOCelement = IEdoc.getElementsByName("A3").Item
    DOCelement.Value = "48001"




   Set DOCelement = IEdoc.getelementsbytagname("button")(12) 'Forms(0)
   DOCelement.Click


   Set IE = Nothing

   End Sub
Sub pause()
Application.Wait Now() + TimeValue("00:00:10")
End Sub

Prochaine étape dire à la macro de prendre les valeurs pour "A3" dans la première colonne de la première feuille du classeur et de les tester un par un

puis de copier coller le résultat dans la première colonne de la feuille 2.

 

Ça ne va pas être une mince affaire ^^