Connection internet avec récupération de données

[an.pi]

Bonjour à tout le FORUM,
J'ai cherché sur le Forum, mais je n'ai pas trouvé ce que je désire.
J'ai un fichier de joueur avec n° de licence.
Je désire en cliquant sur un bouton, par exemple me positionner directement sur la fiche du joueur pour récupérer ses points actuels.
Voici l'adresse du site et n° de licences de joueur connus.

http://www.fftt.com/sportif/pclassement/php3/FFTTfi.php3?session=precision%3D"&$D3&"%26reqid%3D200&cler=LERR1r5JVTb6c

$D3 est la cellule contenant le n° de licence.ex: 922 752 ou 9 519 719 ou 148 881
Merci d'avance
Pierrette

 

[MichelXld]

Re : Connection internet avec récupération de données

bonsoir


Cet exemple récupère le contenu de la cellule D2 pour recréer le lien vers le profil du joueur puis extrait le nombre de points indiqué dans la page

'Nécessite d'activer les références
    'Microsoft HTML Objects Library
    'et
    'Microsoft Internet Controls
 
Dim Cible As String
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
 
Cible = "" & _
    "FFTTfi.php3?session=precision%3D" & _
    Range("D2") & "%26reqid%3D200&cler=LERR1r5JVTb6c"
 
Set IE = CreateObject("InternetExplorer.Application")
 
With IE
    .navigate Cible
    .Visible = False
    Do Until .readyState = READYSTATE_COMPLETE
        DoEvents
        'attend la fin du chargement
    Loop
End With
 
Set maPageHtml = IE.document
'objet type table
Set Htable = maPageHtml.getElementsByTagName("table")
'troisième tableau dans la page Web
Set maTable = Htable(2)
 
'Rows(4).Cells(3) = 5ieme ligne / 4ieme colonne
MsgBox maTable.Rows(4).Cells(3).innerText
 
IE.Quit

bonne soirée
michel
Microsoft Excel MVP

 

[an.pi]

Re : Connection internet avec récupération de données

Merci bien Michel, je viens de réussir la récupération.A plus tard sur le Forum. Pierrette

 

[an.pi]

Re : Connection internet avec récupération de données

Merci Michel.A bientôt sur le Forum.Annette