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.
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 ^^ |
Forums