Discussion :

[jeremygr]

Bonjour je cherche a faire un sub qui me permette de télécharger un fichier depuis internet vers un répertoire donné,
j'ai déjà essayer ce qu'il y a marquer dans la faq http://excel.developpez.com/faq/?pag...rlDownloadFile ,
mais l’éditeur VBA me dit qu'il y a une erreur de syntaxe dans cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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

pouvez vous me dire ou est le problème dans cette fonction,
ou comment pouvoir télécharger un fichier ?
merci d'avance

Bonjour je sais pourquoi l’éditeur VBA me dit qu'il y a une erreur de syntaxe, c'est parce que cette déclaration est valable pour office 32bits mais pas pour office 64bits.
Prouvez vous m'aider a la modifier pour quel fonctionne pour office 64 bits car je n'arrive pas a comprendre comment faire.

merci d'avance

[Invité]

Bonjour

Un tuto à lire sur le sujet : http://arkham46.developpez.com/artic...ice/vba64bits/

Philippe

[jeremygr]

Merci grâce a toi j'ai pue résoudre mon problème de fonctionnement sous 64 bits
donc voici la solution si sa intéresse encore quelqu'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Declare PtrSafe 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 LongPtr
 
Private Const ERROR_SUCCESS As Long = 0
 
 
Sub LancementProcedure()
    DownloadFile "ftp://ftp-nomsite.com/dossier/nomfichier.pdf", "C:\rapport.pdf"
End Sub
 
 
Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
 
    Dim lngRetVal As LongPtr
    DownloadFile = URLDownloadToFile(0&, sURL, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function