Bonjour a tous,
quelqu'un peut-il m'aider sur comment telecharger des fichiers .pdf sur mon disque dur depuis une base LOTUS database ?
Sur une feuille EXCEL, j'ai une centaine de liens vers des PDF enregistrés sous une Base LOTUS. Lorsque je clicque les HYPERLINKS, les pdf s'ouvrent sour CHROME ou IE.
Je cherche, en clicquant sur ces meme liens a telecharger directement ces fichiers sans passer par CHROME ou IE....
Avec le code ci-dessous, un fichier .pdf nomé "TEST.pdf" sur mon C drive mais ce fichier ne fait que 2kb et je ne peux pas l'ouvrir (message d'erreur).
Ce meme code fonctionne tres bien pour un pdf sur un site web 'normal'.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 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 Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Sub test() DownloadFile "http:// hostname/dbname/viewUNID/docUNID/$FILE/project.pdf", "C:\TEST.pdf" End Sub
Pour info, les fichiers pdf que je cherche sont sout LOTUS et les adresses de ces pdf resembles a:
http:// hostname/dbname/viewUNID/docUNID/$FILE/project.pdf
Merci
Herve
Partager