Discussion :

[ericlb56]

Bonjour à toutes et à tous, je n'ai pas pour habitude d'exposer mes problèmes de vba, mais là je suis vraiment coincé.
Après lecture et relecture puis essai et re-essai des diverses informations trouvées dans les post du forum développez.net je n'arrive pas à trouvé de solution à mon code.

En effet, j'essais de réaliser une feuille d'engagé pour course cycliste en récupérant directement le nom, prénom, date de naissance…. des concurrents sur le site fédéral: https://www.ffc.fr/licencies/
Pour l'instant j'arrive en entrant dans un userform le numéro de licence du concurrent à le coller sur le site mais je n'arrive pas à valider la recherche du concurrent et par conséquent à récupérer les infos le concernant pour inscription sur ma feuille.

Merci a celles et ceux qui pourraient m'aiguiller, car le html je n'y comprend pas grand chose.
Ci joint mon classeur.






ENGAGEMENT SUR LA LIGNE.xlsm

[Jean-Philippe André]

Salut,

j'imagine que tu as déjà eu l'occasion de lire le tuto de Qwazerty à ce sujet :
https://qwazerty.developpez.com/tuto...-et-vba-excel/

A noter également que ton fichier ne sera pas téléchargé pour des tas de raisons évoquées maintes fois.

Aussi je te suggère de nous copier la partie du code VBA dans un poste (encadré des balises CODE) afin que nous puissions aisément le lire et te venir en aide.

[ericlb56]

Bonjour et merci de votre réponse,

En effet,
j'ai lu ce tuto en long, en large et en travers, mais je n'arrive pas à définir les balises dans la page internet.

Pour mon fichier, il ne contient aucunes données et le site web internet visé est destiné à cet usage, donc je ne vois pas trop le soucis, sans doute une autre raison que j'ai zappé.

Pour insérer mon code, j'essai au plus vite.

[patricktoulon]

bonsoir
un petit exemple vite fait pour la route

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
Sub test()
    Dim IE, URL
    URL = "https://www.ffc.fr/licencies/"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .navigate URL
        .Visible = True
        Do: DoEvents: Loop While .readystate <> 4
        .document.getelementbyid("num").Value = 123456789    'nom ou numero du licencié
        .document.getelementbyid("club").Value = "les fous volants"    'nom du club
        .document.getelementsbyname("disc")(0).selectedIndex = 2    'selection de la discipline dans la liste deroulante
        .document.getelementbyid("male").Checked = True    ' pour cocher "homme"
        .document.getelementbyid("female").Checked = True    ' pour cocher "femme"
        .document.getelementbyid("fake-search").Click
    End With
End Sub

[ericlb56]

Merci Patrick,
pour mon second post sur le forum, c'est encore une fois vous qui me répondez!
j'ai adapté votre code avec un N° de licence valide, mais comme pour mon code, la validation de la recherche ne s'effectue pas!
voici mon code:

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
Sub inscription_concurrent()
'  N?c?ssite d'activer les r?f?rences
'   - Microsoft HTML Object Library
'   - Microsoft Internet Controls
'   - barre de menu => Outils => r?f?rences, il faut la cocher...
 
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim NLicence As HTMLInputButtonElement
    Dim FindClick As HTMLInputButtonElement
 
    IE.navigate "https://www.ffc.fr/licencies"
    IE.Visible = True
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
 
    Set IEDoc = IE.document
 
    Set NLicence = IEDoc.getElementsByName("num").Item
    NLicence.Value = Sheets("liste").Cells(1, "F")
    DoEvents
    Set FindClick.getElementById("fake-search") = Click
 
End Sub

[patricktoulon]

re

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
Sub inscription_concurrent()
'  N?c?ssite d'activer les r?f?rences
'   - Microsoft HTML Object Library
'   - Microsoft Internet Controls
'   - barre de menu => Outils => r?f?rences, il faut la cocher...
 
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim NLicence As object
    Dim FindClick As object
 
    IE.navigate "https://www.ffc.fr/licencies"
    IE.Visible = True
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
 
    Set IEDoc = IE.document
 
    Set NLicence = IEDoc.getElementByid("num")
    NLicence.Value = Sheets("liste").Cells(1, "F").Value
    'DoEvents
    Set FindClick = .getElementByid("fake-search")
    FindClick.Click
 
End Sub