A voir également:
- URL Données WEB
- Fuite données maif - Guide
- Url - Guide
- Web office - Guide
- Navigateur web - Guide
- Création site web - Guide
1 réponse
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
--
