Discussion :

[GuiJenn34]

Bonjour,

J'ai beau essayer de trouver ma balise sur lequel je veux extraire mes données mais je n'y arrive pas
Le site est : https://france.fedex.com/te/webapp25...LIS=7090592607
C'est pour extraire la valeur contenant le statut de la livraison.
Mais je n'y arrive pas.

Je sais qu'avec ce bout de code trouvé cela fonctionne pour Google :

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
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
   'Chargement d'une page Web Google
   IE.Navigate "www.google.fr"
 
   'Affichage de la fenêtre IE
   IE.Visible = False
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
 
   'On pointe notre Zone de texte
   Set InputGoogleZoneTexte = IEDoc.all("q")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = "VBA Excel"
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   MsgBox InputGoogleZoneTexte.Value
 
   IE.Quit
   Set IE = Nothing
   Set IEDoc = Nothing

Mais pour l'autre site impossible.

Merci de votre aide. Cdt

[Menhir]

Je n'ai pas ouvert ton site mais es-tu que ta données soit dans du HTML et pas dans... autre chose comme du Flash par exemple ?

[Qwazerty]

Salut

En fait pour trouver l'élément en question le mieux, une fois dans l'inspecteur, est de faire une recherche sur le mot "Situation". Comme ça ça va t'emmener directement sur le bon élément. Il te faudra ensuite remonter un peu l'arborescence pour trouver un élément ayant un name ou un ID (je pense <div id="colD2">). Par contre attention, il y a un élément "Form" en dessous... ça risque de te poser des problèmes, tu verras.
Après les données sont dans des tableaux imbriqué les uns dans les autres, en utilisant le tuto et en bidouillant un peu tu devrais pouvoir sortir ces données.

++
Qwaz

[GuiJenn34]

J'ai suivi la procédure de l'espion tenter de retrouver l'information que j'ai besoin :


Je voudrai retrouvé la balise qui mentionne le statut de livraison :


J'ai essayé de retourver par le code sources :


J'ai d'autre site sur lequel je dois effectuer une macro. Qwazerty tu pense que tu aurais un petit peu de temps pour me montrer sur le site Fedex pour récupérer cette info ?

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
Sub PremierIE()
'Déclaration des variables
Dim IE As InternetExplorer
 
   Set IE = CreateObject("InternetExplorer.Application")
   IE.Navigate "https://apps.france.fedex.com/te/webapp25?&trans=tesow350&action=recherche_complete&NUM_COLIS=7090682899"
   IE.Visible = True
   Set IE = Nothing
 
End Sub
 
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop
End Sub

En te remerciant beaucoup Cdt.

[patricktoulon]

Bonjour
quand on regarde l'arborescence de la structure de la page on se rend compte que le "TD" de la situation est dans une sous table

il te faut donc descenderie l'arborescence

au plus simple

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, TR, MESTABLES
    URL = "https://apps.france.fedex.com/te/webapp25?&trans=tesow350&action=recherche_complete&NUM_COLIS=7090682899"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = True
        .navigate URL
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        Set MESTABLES = .document.getelementsbytagname("TABLE")' on collectionne les tables
        'msgbox pour la situation
       ' la situation se trouve dans la 2d ligne de la 3eme  sous table
situation = MESTABLES(2).getelementsbytagname("TR")(1).Children(2).innertext
        .Quit
        MsgBox situation
    End With
End Sub

[GuiJenn34]

Bonjour patricktoulon,

Merci de m'avoir donner la solution direct Super

Mais pourrais-tu me montrer en quelques étapes comment tu as fait pour connaitre la position exacte ?
Si tu as utiliser un/plusieurs logiciel(s) etc... Car avec l'espion c'est un peu compliqué !! Car on ne peux pas faire de recherche.

Cela fonctionne pour tous les n° de suivi Fedex excellent et un merci à toi.
Mais je souhaiterai également le faire sur plusieurs site de transporteur et je voudrait comprendre le cheminement
J'ai pas site j'ai Chronopost, Colissimo, TNT et UPS pour les principaux.

Bien Cdt

[Marc-L]

J'ai beau essayer de trouver ma balise sur lequel je veux extraire mes données mais je n'y arrive pas.

Bonjour,

pourtant ce n'est vraiment pas compliqué quand les données se trouvent directement dans le code source de la page Web
comme c'est le cas ici !     Une fois ce code récupéré, juste avec les fonctions VBA de chaîne de caractères :

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
Sub Demo1()
    Const TIT = "   Situation du colis n° ", TD = "<td>", _
          URL = "https://apps.france.fedex.com/te/webapp25?&trans=tesow350&action=recherche_complete&NUM_COLIS="
          NC$ = "8147813377"
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", URL & NC, False
        .setRequestHeader "DNT", "1"
         On Error Resume Next
        .send
         If Err.Number Then Beep: Exit Sub
         On Error GoTo 0
     If .Status <> 200 Then Beep: Exit Sub
         SP = Split(.responseText, TD & NC)
    End With
    If UBound(SP) < 1 Then
        MsgBox "non référencé …", , TIT & NC
    Else
        SP = Split(SP(1), TD)
        If UBound(SP) = 2 Then MsgBox Application.Trim(Split(SP(2), "</td>")(0)), , TIT & NC _
                          Else MsgBox "Structure des données à vérifier …", , TIT & NC
    End If
End Sub

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[patricktoulon]

Salut Marc
on peut faire aussi l'exploration avec les librairie IE dans un htmldocument en mémoire en récupérant le TD .innertext

certainement plus sur dans le sens ou il peut y avoir des erreurs avec split si le code innerhtml du td change(style,attribut,etc...) tandis que le intertexte lui non (il est ce qu'il est)

[Marc-L]

Salut Patrick !

Du même avis, respect de la règle TBTO, l'objet il n'y a que cela de vrai !

Mais j'ai aussi pris le parti de me placer au niveau du demandeur qui,
avec un peu d'expérience, pourra se débrouiller au moins avec la base du VBA …

Au passage ton code double les résultats !
Moi je préfère afficher uniquement le statut du colis attendu tout en gérant une éventuelle erreur du Split …

[patricktoulon]

salut marc
https://apps.france.fedex.com/te/web...LIS=8147813377

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
 
Sub Demo1()
   Dim mestd
   Const TIT = "   Situation du colis n° ", TD = "<td>", _
          URL = "https://apps.france.fedex.com/te/webapp25?&trans=tesow350&action=recherche_complete&NUM_COLIS="
    nc$ = "8147813377"
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", URL & nc, False
        .setRequestHeader "DNT", "1"
        On Error Resume Next
        .send
        If Err.Number Then Beep: Exit Sub
        On Error GoTo 0
        If .Status <> 200 Then Beep: Exit Sub
        code = .responsetext
       End With
    With CreateObject("htmlfile")
        .body.innerhtml = code
        Set mestd = .getelementsbytagname("TD")
        For i = 0 To mestd.Length - 1
            If Trim(mestd(i).innertext) = "8147813377" Then
                reponse = reponse & TIT & nc & ":" & vbCrLf & mestd(i).parentelement.Children(2).innertext & vbCrLf
            End If
        Next
    End With
    MsgBox reponse
End Sub

[Marc-L]

Ligne de code n°21 : mieux vaut utiliser la variable pour le n° de colis …