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

Icedarts

XLDnaute Occasionnel
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:

VB:
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.
 
Dernière modification par un modérateur:
Solution
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 ... :rolleyes:

Staple1600

XLDnaute Barbatruc
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 ... :rolleyes:
 
Dernière modification par un modérateur:

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
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, @+
 

Discussions similaires

Statistiques des forums

Discussions
313 205
Messages
2 096 209
Membres
106 531
dernier inscrit
ahmedahmed