[Excel-VBA]
Pkoi
-
Pkoi -
Pkoi -
Bonjour,
Je rencontre un problème avec une macro que j'ai trouve sur internet afin de télécharger un fichiers 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'avanceConfiguration: Windows XP
Internet Explorer 7.0
Je rencontre un problème avec une macro que j'ai trouve sur internet afin de télécharger un fichiers 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'avanceConfiguration: Windows XP
Internet Explorer 7.0
A voir également:
- [Excel-VBA]
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
J'ai trouvé ça à cette URL : http://www.zeropaid.com/bbs/archive/index.php/t-30253.html
do this via internet explorer
this will resolve your problem.
click on tools
click on internet options
click on security
click on custom level
scroll down till you get to downloads in the security section
click and enable automatic prompting for downloads
click and enable file download
simple as that click ok and it will work
J'espère que tu lis l'anglais !
do this via internet explorer
this will resolve your problem.
click on tools
click on internet options
click on security
click on custom level
scroll down till you get to downloads in the security section
click and enable automatic prompting for downloads
click and enable file download
simple as that click ok and it will work
J'espère que tu lis l'anglais !
C'est très sympa de m'aider mais j'ai fini par trouver. En réalité dans le textbox il fallait mettre l'adresse une nouvelle fois.
La bonne macro est la suivante:
Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Sub telecharge()
Dim sUrl As String
sUrl = StrConv(InputBox("URL du fichier à télécharger ?", "téléchargement", "URL du fichier à télécharger ?"), vbUnicode)
DoFileDownload sUrl
End Sub
Merci encore