Discussion :

[dkoneeee]

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 :

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

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.

[jfontaine]

le mieux c'est de tester si ca fonctionne;
Tiens nous au courant

[dkoneeee]

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

[SilkyRoad]

bonsoir


Si tu connais l'url du fichier:

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
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

[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?