URL Données WEB

Question

Bonjour,
Je télécharge des automatiquement données sur des pages web à l'aide de la macro d'Eriiic: https://forums.commentcamarche.net/forum/affich-25514152-automatiser-extraction-donnees-web-excel-vba (un grand merci à lui pour cela).
Mon problème c’est que lorsque j'indique une adresse mail, il y a une redirection automatique qui se fait.
Le téléchargement de données fonctionne bien mais j'aimerais aussi télécharger automatiquement la nouvelle adresse web sur laquelle j'ai été redirigé.
Par exemple, mon URL de base est : 
https://trendstop.levif.be/fr/detail/403199702/bnp-paribas-fortis.aspx
Et je suis redirigé directement sur: 
https://trendstop.levif.be/fr/detail/403199702/bnp-paribas-fortis.aspx
Comment puis-je importer dans Excel ce nouvel URL ?
Avez vous une commande VBA pour cela ?
Merci d'avance,
Mikhaël

phadeb · Answer

Bonjour,

Tu peux passer par du VBA et appeler le module Microsoft WinHTTP Services

Public Function GetResult(ByVal strUrl As String, Optional ByRef isRedirect As Boolean, Optional ByRef target As String) As String
    Dim oHttp As New WinHttp.WinHttpRequest

oHttp.Option(WinHttpRequestOption_EnableRedirects) = False
    oHttp.Open "HEAD", strUrl, False
    oHttp.send
    GetResult = oHttp.Status & " " & oHttp.statusText
    If oHttp.Status = 301 Or oHttp.Status = 302 Then
        isRedirect = True
        target = oHttp.getResponseHeader("Location")
    Else
        isRedirect = False
        target = Nothing
    End If
End Function 
 

Tu envoie à la fonction l'url et il te renvoie l'url redirigée
--

URL Données WEB

1 réponse

Discussions similaires

Newsletters