Discussion :

[marsupilami34]

Bonjour à tous,

Voici ce que je cherche à faire:
J'ai une adresse url en "https://"
Je souhaiterais ouvrir cet url avec microsoft edge et attendre que la page se charge
une fois la page chargée (qui correspond à un fichier pdf), je souhaiterai le télécharger

Alors pour cela, j'utilise la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveWorkbook.FollowHyperlink (hlink)

Cette fonction me charge bien la page. Mais je souhaiterai mettre un Wait ou un truc du genre pour attendre que la page se charge

Et ensuite, je ne sais pas comment télécharger le pdf en question.

Merci d'avance pour votre aide

Cdlt,
Marsup

[Thumb down]

Bonjour,
une proposition!

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
34
35
36
37
Public Function DownloadHTTP(ByVal URL As String, ByVal Destination As String) As Boolean
'http://blog.developpez.com/philben/p...access/qr_code
   On Error GoTo catch
   Dim oWinHTTP As Object
   Dim fic As Integer
   Dim buffer() As Byte
 
 
   Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   oWinHTTP.Open "GET", URL, False
   oWinHTTP.send
 
 
   If oWinHTTP.Status = 200 Then
      fic = FreeFile
      Open Destination For Binary Lock Read Write As #fic
      buffer = oWinHTTP.ResponseBody
      Put #fic, , buffer
 
 
      Close #fic
      DownloadHTTP = True
   Else
      MsgBox "Statut retourné par le service : " & oWinHTTP.Status & vbCrLf & _
             "Description : " & oWinHTTP.StatusText, vbExclamation, "DownloadHTTP()..."
   End If
 
 
finally:
   Erase buffer
   Set oWinHTTP = Nothing
   Exit Function
catch:
   MsgBox "Erreur n°" & Err.Number & vbCrLf & "Description : " & Err.Description, vbExclamation, "DownloadHTTP()..."
   Close   'ferme tous les descripteurs ouverts
  Resume finally
End Function

[marsupilami34]

Bonjour et merci pour ton aide Thumb down.

Par contre lorsque j'essaie d'ouvrir le pdf téléchargé j'ai le message d'erreur suivant



Je suppose que c'est parceque la page nn'a pas eu le temps de se telécharger.

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FollowHyperlink

, la page s'ouvre sur Edge et j'ai bien mon fichier qui apparait.

En fait l'url en entrée me redirige vers un autre lien.
Par contre lorsque je mets dans ton code l'adresse redirigée, ca passe par l'exception.

[jurassic pork]

hello,
marsupilami34 tu n'as pas donné suite à cette discussion . C'est dommage pour toi car ce qui est évoqué t'aurait servi ici

Ami calmant, J.P

[jurassic pork]

Hello,

Par contre lorsque j'essaie d'ouvrir le pdf téléchargé j'ai le message d'erreur suivant

Je suppose que c'est parceque la page nn'a pas eu le temps de se telécharger.
Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FollowHyperlink

, la page s'ouvre sur Edge et j'ai bien mon fichier qui apparait.
En fait l'url en entrée me redirige vers un autre lien.
Par contre lorsque je mets dans ton code l'adresse redirigée, ca passe par l'exception.

Il faut regarder ce qu'il y a dans le fichier téléchargé (avec Notepad++ par exemple). Il se pourrait qu'en fait cela soit du html avec un script javascript qui se charge de récupérer le vrai fichier PDF.

Ami calmant, J.P

[Thumb down]

Bonjour ,
Comment le dis le message d'erreur ainsi que jurassic pork ce que tu as télécharger n'est pas un format PDF