XL 2021 EXCEL VBA chercher text precis sur Internet

[pasquetp]

Bonjour,


je travaille sur un projet pour mon chef.

l'objectif est de déterminer pour une liste de suivi ( UPS) s'ils sont livrés et ce manière automatique et non visuel par l'utilisateur

je vous donne un exemple

https://www.ups.com/track?track=yes&trackNums=1ZA30A810309584769&loc=en_US&requester=ST/trackdetails

on constate qu'il est livré


j'aimerai que VBA ou autrement , que la verification puisse etre automatisé

j'ai tenté de telecharger avec la web query: il me fait patienter une eternité et j'obtiens au final un echec de tentative

"connexion impossible, nous avons rencontré une erreur lors de la tentztive de connexion , etc

=====================================================

seconde tentative: j'ai egalement tenté ce module sauf qu'il cherche indefiniment


Sub Basic_Web_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.ups.com/track?track=yes&trackNums=1ZA30A810309584769&loc=en_US&requester=ST/trackdetails", Destination:=Range("$A$1"))
.Name = "q?s=goog_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1,2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

End Sub
===============================

je suis a court d'idée. quelqu'un aurait une idée pour m'aider?

merci

Pierre

 

[pasquetp]

re-

si ca manque de clareté, n'hesitez pas a me le remonter

merci infiniment

 

[crocrocro]

Bonjour Pierre,
même problème que toi (délai dépassé) avec ce code (ici pour le calcul de distance et durée entre 2 villes qui lui fonctionne bien).

Public Const DIST = "http://www.distance2villes.com/recherche?source="
Sub Distance()
Dim lg As Integer, i As Integer
Dim Url As String, Txt As String

    With Sheets(1)
        lg = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To lg
            Url = DIST & .Range("A" & i).Value & "&destination=" & .Range("B" & i).Value
            With CreateObject("WINHTTP.WinHTTPRequest.5.1")
                .Open "GET", Url, False
                .send
                Txt = .responseText
            End With
            .Range("C" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
            .Range("D" & i).Value = Split(Split(Txt, "id=""tiempo"">")(1), "</span>")(0)
        Next i
    End With
End Sub

Pour la suite, si tu arrives à résoudre le problème de délai dépassé :
La fonction Split permet de localiser l'information à récupérer sur le code source de la page (à adapter donc).
Pour l'automatisation, une exécution de la macro planifiée avec OnTime pour toutes les requêtes de suivi courantes.
Désolé de ne pouvoir apporter plus.

 

[pasquetp]

Bonjour Crocrocro,

merci a vous de m'apporter votre aide

je testerai apres le travail en esperant trouver une solution

merci a vous

 

[patricktoulon]

re
bonjour à tous
vous êtes vous renseigné si le site acceptait le grabbing par vba ou autre
c'est la première chose à faire en général

https://www.ups.com/us/en/support/shipping-support/legal-terms-conditions/website-terms-of-use.page

article 9

je vous suggère de relire la charte du forum sur ce point d'ailleurs
j'y suis allé pour vous et c'est explicite

 

[crocrocro]

Merci Patrick,
effectivement, c'est très clair.

 

[pasquetp]

merci a vous , j'avais pas du tout pensé sous cet angle. on pensait initialement recuperer les resultats de plusieurs suivi avec pour objectif identifier les retards et agir dessus. c'est par cette optique que cela ne nous a pas effleuré. je pense que je vais contacvter UPS pour savoir s'il y a des outils autorisé pour les entreprises car on envoie bcp de colis via UPS et le suivi ca fait parti de notre taff

merci a vous