Microsoft 365 Récupérer les données des variable dans une autre feuille du classeur

[Icedarts]

Bonjour à tous,

J'ai actuellement ce code qui récupère des données et les affiche dans la fenetre execution de l'éditeur VBA:

Sub testJP()
    Dim driver As WebDriver
    Dim LeftFrame As WebElement, Lien As WebElement
    Dim Championnat As WebElement, NumEquipe As WebElement, NumJoueur As WebElement
    Dim btnConsult As WebElement, btnValider As WebElement, Res As WebElement
    Dim i As Long, Infos() As String
    Set driver = New WebDriver
    driver.Edge "D:\OneDrive\Bureau\webdriver\msedgedriver.exe"
    driver.OpenBrowser
    driver.SetTimeouts 30000, 30000, 10000
    driver.NavigateTo "https://www.exemple.com"
    driver.MaximizeWindow
    Set LeftFrame = driver.FindElement(name, "leftframe")
    driver.SwitchToFrame LeftFrame
    Set Lien = driver.FindElement(ID, "M21")
    Lien.Click
    Set btnConsult = driver.FindElement(ID, "A9")
    btnConsult.Click
    Set Championnat = driver.FindElement(ID, "A1")
    Set NumJoueur = driver.FindElement(ID, "A2")
    Set NumEquipe = driver.FindElement(ID, "A3")
    Set btnValider = driver.FindElement(ID, "A4")
    Set Res = driver.FindElement(ID, "tzA5")
    Championnat.SendKeys "Indiv"
    On Error Resume Next
    For i = 1 To 200
        NumJoueur.Clear
        NumJoueur.SendKeys CStr(Cells(i, 1).value)
        btnValider.Click
         If InStr(1, Res.GetText, "%1") Then
            Debug.Print CStr(NumJoueur.GetProperty("value")), " : ", " - "
         Else
            Infos = Split(Res.GetText, vbCrLf)
            Debug.Print CStr(NumJoueur.GetProperty("value")) + " : " + _
            Infos(0) + " -> " + Infos(1)
         End If
    Next i
    On Error GoTo 0
    Application.Wait Now() + TimeValue("00:00:2")
    driver.MinimizeWindow
    driver.CloseBrowser
    driver.Quit
    Set driver = Nothing
 
 
End Sub

Ce qui me limite a environ 200 lignes au total.
C'est pour ça que je souhaite récupérer les données dans la feuilles 2 du classeur.

Pour le classeur il a fallu installer selenium et le webdriver d'Edge.

Merci d'avance pour votre aide.

 

[Staple1600]

Bonsoir @Icedarts

A vue de nez
Feuil2.cells(i,1)=CStr(NumJoueur.GetProperty("value")) + " : " & Infos(0) & " -> " & Infos(1)
Cela donne quoi ?

NB: Point de vigilance sur le point 8 de la charte d'XLD


PS: Pourtant nous avions déjà échangé sur ces points ...

Microsoft 365 - Ouvrir une page web et récupérer les données d'un tableau

Bonjour à tous, Il y a une quinzaine d'années j'ai fait une demande un peu similaire. J'ai retrouver les discussions et les anciens classeurs mais il semble que certaines valeurs dans les codes ne soient plus correct, j'ai notamment une erreur avec webbrowser. Voila ce que je souhaite faire...

excel-downloads.com

 

[Bernard_XLD]

Bonjour Icedarts, staple1600, le forum

@Icedarts , vous pouvez poster un code pour en discuter mais éliminez d'abord toute les références à un site particulier, que ce soit pour respecter la propriété intellectuelle ou le RGPD (identification d'une personne morale), de la même façon qu'un fichier doit être anonymisé avant publication.

Cordialement, @+

 

[Icedarts]

Effectivement veuillez m'excuser en plus j'y ai pensé mais j'ai posté avant de sortir et voila...
@Staple1600 ça fonctionne très bien merci.