Macro et téléchargement: problème de sécurité

Question

Bonjour, 

Je rencontre un problème avec une macro que j'ai trouve sur ce site afin de télécharger un fichier via son url. 

Le programme est le suivant: 

Option Explicit 

Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long 

Sub DownLoadFile() 
Dim sUrl As String 

sUrl = StrConv(InputBox("URL du fichier à télécharger ?", "téléchargement", vbNullString), vbUnicode) 
DoFileDownload sUrl 
End Sub 

Lors du lancement de la macro avec l'url d'un fichier .xls, un textbox s'affiche je clique sur OK et le message suivant s'affiche : 

your security settings do not allow this file to be downloaded 

J'ai essayé: 

- de mettre la securité des macros au plus bas. 
- de désactiver le firewall. 
- de mettre la sécurité de ie (mon navigateur par défaut) au plus bas. 
- de télécharger un autre fichier 

Rien y fait. 

Que dois-je faire ? Des idées ? 
Merci d'avance

gillardg · Answer

http://www.codyx.org/snippet_telecharger-fichier-apres-ouverture-boite-dialogue-saveas_684.aspx#2036












Bonjour chez vous !

cs_Kestion · Answer

Merci Gillardy pour ton aide,

Je suis vraiment un débutant sur VB.


Après un Copy/Paste de la fonction que tu m'as donné :

Private Declare Function DoFileDownload 
Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Public Sub DisplayDownloadBox(ByVal sPath As String)
    Call DoFileDownload(StrConv(sPath, vbUnicode))
End Sub

'APPEL  :
Call DisplayDownloadBox("mon URL")

Rien ne fonctionne ?
Est ce tu peux m'aider s'tou plé ?

gillardg · Answer

Call DisplayDownloadBox("mon URL")

faut changer "mon URL" en une url valide évidement sinon ça sait pas fonctionner.

et puis après si ça fonctionne toujours pas demande de l'aide à l'auteur du snippet

Bonjour chez vous !

Macro et téléchargement: problème de sécurité

3 réponses

Votre réponse

Discussions similaires