1 pièce(s) jointe(s)
Téléchargement fichier via URL
Bonjour à tous,
J'ai créé une marco quipermet de récupérer des fichier pdf sur une adresse url
J'ai trouvé le code suivant qui, si j'ai bien compris me revoie vrai si il a réussi à copier le fichier à l'adresse souhaitée
Code:
1 2 3 4
|
Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function |
Dans le module principal, j'appelle donc cette fonction
Code:
1 2 3 4 5 6 7
|
Dim hlink As String
Dim a As Boolean
hlink = "https://---------e=English&format=pdf"
a = TelechargerFichierInternet(hlink, "C:\monpdf.pdf") |
J'ai bien un fichier qui se copie mais lorsque j'essaie de l'ouvrir, j'ail'erreur suivante qui apparait
Pièce jointe 627212
Et en cliquant sur actualiser, ca reaffiche le message.
Quelqu'un pourrait-il m'aider svp ?
Merci d'avance
Marsup