Save file from url export

Version imprimable

26/11/2007, 13h25
dkoneeee

Save file from url export
Bonjour,

Je souhaite sauver ou open un fichier provenant de l'export d'un site web.

j'arrive en simulant le clique à ouvrir une box windows qui me demande d'ouvrir le fichier ou de l'enregistrer mais comme je fait une centaine d'export ca devient vite chiant.

pour cela j'utilise:
*************************
Code:

1 2 Set IE = CreateObject("InternetExplorer.Application") IE.navigate
***************************

Je me demande si je peut enregistre directement le fichier en rentrant comme paramètre l'url de l'export?

Merci d'avance pour vos réponses.
26/11/2007, 15h22
jfontaine

le mieux c'est de tester si ca fonctionne; :P
Tiens nous au courant
26/11/2007, 17h24
dkoneeee

Non mais je connais pas la solution.
c'était une question.

bonsoir

Si tu connais l'url du fichier:

Code:

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

bonne soirée
michel

26/11/2007, 19h59
dkoneeee

Je precise mon fichier est du type :
http://servlet/com.indom.front.servlet.SearchServlet?formAction=export

quand je lance LancementProcedure() rien ne passe.

comment on lance ton programme?