Discussion :

[maymou27]

Bonjour,

S'il vous plait j'aurai besoin de votre aide pour télécharger ce fichier . tar automatiquement

Code :

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

<a href=" d92519280.02.a00.tar?B&csrfToken="><img src="/icons/archive.gif" border="0">d92519280.02.a00.tar</a>

j'ai essayé ce code mais ça n'a pas marché :

Code :

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

1
2
3
4
5
6
Url = "https://ftspluss.com/GBDD-INT/d92519280.02.a00.tar?B&csrfToken="
 
LocalFilename = "d92519280.02.a00.tar"
DestinationDir = objFolderItem.Path & "\" & "APPEL\"
 
Call DownloadFileFromUrl(Url, LocalFilename, DestinationDir)

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
25
26
27
28
29
30
Public Function DownloadFileFromUrl(ByVal Url As String, ByVal LocalFilename As String, ByVal DestinationDir As String)
' Download a file from a given url to specified directory
 
    Dim WinHttpReq As Object, oStream As Object
    Dim TimerOut As Integer
 
    On Error Resume Next
 
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
 
    WinHttpReq.Open "GET", Url, False
    WinHttpReq.send
 
    If Err.Number = 0 And WinHttpReq.Status = 200 Then
        'Write response to file
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile DestinationDir & LocalFilename
        oStream.Close
        Set oStream = Nothing
    Else
        MsgBox LocalFilename & " could not be download !"
    End If
 
    'free memory
    Set WinHttpReq = Nothing
 
End Function

Merci d'avance

[Marc-L]

Bonjour,

l'URL n'étant pas bonne, cela ne peut marcher … Et si ce n'est pas l'URL, alors c'est le dossier de destination !

Ou encore le fichier n'est pas téléchargeable directement …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[maymou27]

Marc, Merci pour votre réponse.

Est ce que vous avez une astuce pour trouver le bon URL du fichier à télécharger?

Merci encore

[Marc-L]

C'est simple : depuis la page Web source, si le fichier est téléchargeable le navigateur affiche son lien
ou encore via le menu contextuel il y a la possibilité par exemple d'enregistrer la cible du lien sous …

Vérifiable aussi dans le gestionnaire ou l'historique des téléchargements …

[maymou27]

Merci pour ces astuces!!

Malheureusement j'ai trouver que le lien de téléchargement c'est le même que l'URL que j'ai détecté

Je ne sais pas comment faire pour télécharger le fichier

[Marc-L]

C'est le B-A-BA de l'utilisation d'un navigateur !
Donc le fichier ne serait pas téléchargeable directement …

Sans une présentation claire & exhaustive avec les tenants et les aboutissants,
voir l'exemple de la discussion Piloter la fenetre windows en vba …