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