VBA - Enregistrment de fichier pdf depuis base LOTUS
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:
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
