Télécharger des fichiers depuis une URL
Bonjour,
Je maintiens une application en VBA Excel et je souhaiterais télécharger un fichier depuis une URL, qui est apparemment aliasé, et souhaiterais connaitre le nom exact du fichier.
Je m'explique.
J'ai récupéré une application Excel avec une macro Excel.
Le but est de créer une sorte d'aspirateur d'un site sur notre intranet.
Les liens vers les documents ont plusieurs formes :
1) https://blablabla/application.exe/fichier1.doc?param1=p¶m2=p2
2) https://blablabla/application.exe?param1=p¶m2=p2
Lorsqu'on clic sur le lien, le fichier est téléchargeable avec le bon nom (fichier1.doc, fichier2.ppt).
L'application récupérée utilise la fonction URLDownloadToFile. Il faut préciser l'url (pas de problème, je l'ai) et le nom du fichier destinataire (que je ne connais malheureusement pas).
Cette fonction est déclarée comme ceci :
Code:
1 2 3
| Private Declare Function URLDownloadToFile Lib "URLMON" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long |
J'ai trouvé la fonction CoInternetParseUrl mais je n'arrive pas à la déclarer (apparemment, elle n'est pas présente dans la dll urlmon)
Bref, est-ce que vous connaitriez un moyen de télécharger mes fichiers en conservant le nom d'origine du fichier ?
Merci d'avance.