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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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

Nom : img1.jpg Affichages : 262 Taille : 16,6 Ko

Et en cliquant sur actualiser, ca reaffiche le message.

Quelqu'un pourrait-il m'aider svp ?

Merci d'avance

Marsup