URL Données WEB
Fermé
Mikiburger
Messages postés
1
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017
-
24 mars 2017 à 10:49
phadeb Messages postés 86 Date d'inscription dimanche 2 avril 2006 Statut Membre Dernière intervention 13 mai 2017 - 8 mai 2017 à 12:04
phadeb Messages postés 86 Date d'inscription dimanche 2 avril 2006 Statut Membre Dernière intervention 13 mai 2017 - 8 mai 2017 à 12:04
A voir également:
- URL Données WEB
- Lien url - Guide
- Traduire une page web - Guide
- Instagram web - Guide
- Url masquée pour votre sécurité - Forum TV & Vidéo
- Verifier site web url - Guide
1 réponse
phadeb
Messages postés
86
Date d'inscription
dimanche 2 avril 2006
Statut
Membre
Dernière intervention
13 mai 2017
21
Modifié le 8 mai 2017 à 12:05
Modifié le 8 mai 2017 à 12:05
Bonjour,
Tu peux passer par du VBA et appeler le module Microsoft WinHTTP Services
Tu envoie à la fonction l'url et il te renvoie l'url redirigée
--
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
--
