Discussion :

[Icedarts]

Bonjour à tous,

Je souhaite cliquer sur une div qui contient une image sur une page web.
Dans le code source l'élément est identifié par id="A9", identifiant unique dans tout le code source, je pensais donc utiliser getElementsByID("A9") pour l'identifier dans le code vba.

J'ai essayé de multiples choses mais ça me renvoie toujours des erreurs.

Voila ou j'en suis actuellement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
 
navigate = "www.dl-ligue.com/DL-ligue/menu_CDF/_BIAAC8ZHBIMAA"
Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url " & navigate)
Set element = ie.document.getElementsByID("A9")
element.Click
End Sub

A la fin de l'url il y a un identifiant de session que j'ajoute a chaque fois que je veux lancer la macro.

Donc si vous voulez un apperçu de la page il faut aller sur www.dl-ligue.com a gauche dans espace joueur cliquer sur championnat de France et sur ce qui s'affiche je souhaite cliquer sur le carré "consulter niveau"

Merci d'avance pour votre aide.

[deedolith]

Salut,

Pour interragir avec les navigateurs moderne (Edge, Chrome, firefox), il faut passer par Selenium Web Driver.
Malheureusement, je n'ai pas plus d'informations à ce sujet.

[Icedarts]

J'ai un peu avancé mais la je suis bloqué:

Je n'arrive pas a faire comprendre à la macro qu'après avoir testé le numéro en A1 (dans la feuille1 du classeur) il faut qu'elle passe à A2 puis A3 etc etc jusqu'à ce que la colonne soit vide.
La elle fait A1 et j'ai le message "traitement terminé"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub test()
 
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
    Static L As Long
 
    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
 
    If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")
 
    Set IE = Nothing
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si quelqu'un peut me corriger le code merci d'avance.

[jurassic pork]

Hello,

Donc si vous voulez un apperçu de la page il faut aller sur www.dl-ligue.com a gauche dans espace joueur cliquer sur championnat de France et sur ce qui s'affiche je souhaite cliquer sur le carré "consulter niveau"

Pour arriver à ta page tu peux essayer ceci (en espérant que les Id (ex: M21) ne changent pas dans le temps) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub testJP()
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object, FrameLeftDoc As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("www.dl-ligue.com")
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.all("M21")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Application.Wait Now() + TimeValue("00:00:01")
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    'Application.Wait Now() + TimeValue("00:00:5")
    Set DOCelement = FrameLeftDoc.all("A9")
    DOCelement.Click
    WaitIE IE
    Application.Wait Now() + TimeValue("00:00:20")
    IE.Quit
    Set IE = Nothing
 
 
End Sub
 
 
Sub WaitIE(IE As Object)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until Not IE.Busy And IE.readyState = 4
      Application.Wait Now() + TimeValue("00:00:01")
      DoEvents
   Loop
End Sub

Ami calmant, J.P

[Icedarts]

Hello,

Pour arriver à ta page tu peux essayer ceci (en espérant que les Id (ex: M21) ne changent pas dans le temps) :

Ami calmant, J.P

Merci ça fonctionne parfaitement bien.

Peux tu m'aider pour la suite de mon code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")

Je pense qu'il me manque quelque chose pour qu'après le End With ça revienne a L = L + 1 mais je ne trouve pas quoi :/

[jurassic pork]

Plutôt que de me montrer un code que je ne comprend pas dis moi ce que tu veux faire exactement ?

[Icedarts]

Alors attention ça va être long ^^

J'essaie de faire un fichier qui m'ouvre la page internet que tu as vu.
Qui va tester plein de numéro (qui seront dans la colonne A de la feuille 1 du classeur)
J'y suis presque mais je n'arrive pas a faire boucler la macro pour qu'après avoir testé A1 elle passe a A2 et ainsi de suite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub testJP()
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object, FrameLeftDoc As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("www.dl-ligue.com")
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.all("M21")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Application.Wait Now() + TimeValue("00:00:01")
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    'Application.Wait Now() + TimeValue("00:00:5")
    Set DOCelement = FrameLeftDoc.all("A9")
    DOCelement.Click
    WaitIE IE
 
        If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")
 
    Set IE = Nothing
 
 
End Sub

Avec ce code ça teste A1 et j'ai le message "Traitement terminé"

Après cette étape je pourrais passer à la suite qui est de récupérer en feuille 2 le texte qui s'affiche après le clique sur le bouton valider ("button")(12)
Texte identifié par l'id tzA5


Dernière chose qu'il faudra gérer c'est l'apparition d'une pop-up quand le numéro n'est pas valide


Tu peux avoir cette pop-up avec le numéro 48009.

Fichier test en pièce jointe

Merci de ton aide

[jurassic pork]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub testJP()
    Dim IE As Object
    Dim IEdoc As Object, Res as Object
    Dim DOCelement As Object, FrameLeftDoc As Object
    Dim Championnat As Object, NumEquipe As Object, btnValider As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("www.dl-ligue.com")
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.All("M21")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.All("A9")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Set Championnat = IEdoc.All("A1")
    Championnat.Value = "2"  'Doublette
    Set NumEquipe = IEdoc.All("A3")
    NumEquipe.Value = "48001"
    Set btnValider = IEdoc.All("A4")
    btnValider.Click
    WaitIE IE
    Set Res = IEdoc.All("tzA5")
    Debug.Print Res.innerText
    Application.Wait Now() + TimeValue("00:00:10")
    IE.Quit
    Set IE = Nothing
End Sub