enregistrement automatique d'un fichier téléchargé

Question

Bonjour, 
J'ai un programme pour t&#233;l&#233;charger des cotations, mais je n'arrive pas &#224; enregistrer automatiquement le fichier. 
Voil&#224; le d&#233;but: 

Private Sub T&#233;l&#233;charger_Click()
  sDownload = StrConv("http://fr.old.finance.yahoo.com/d/quotes.csv?s=@^FCHI&f=snl1d1t1c1ohgv&e=.csv", vbUnicode)
  Call DoFileDownload(sDownload)

Juste apr&#232;s, s'ouvre la boite pour sauvegarder le fichier (nom et emplacement), mais je voudrais que cela soit masquer: que l'utilisateur n'intervienne ni pour l'enregistrement ni pour ouvrir le fichier t&#233;l&#233;charg&#233; (en format .csv). 
Merci beaucoup &#224; celui qui y parviendra...

cs_EBArtSoft · Answer

Il Faut traiter la phase de telepchargement soit meme ou bien recuperer les donn&#233;e du fichier telecharg&#233;

Ainsi il est facile de sauvegarder ou non le fichier

Pour cela plusieur methode soit un controle winsock ou inet ou bien les api HTML

@+


E.B.

difovelo · Answer

Merci pour ton message, EBArtSoft, mais pourrais-tu etre plus explicite en me donnant un petit exemple stp, &#231;a m'aiderait plus.
Merci A+

cs_EBArtSoft · Answer

Si le pc dispose de WinHTTP tu peux faire comme ceci :


    Dim wnh As Object
    Dim txt As String
    'La il telecharge
    Set wnh = CreateObject("WinHttp.WinHttpRequest.5.1")
    wnh.Open "GET", http://mapage.html, False
    wnh.Send
    Txt =  wnh.ResponseText

    'La il enregistre
    Open "C:\Monfichier.txt" for binary as #1
    put #1,,txt
    Close #1


@+


E.B.

Enregistrement automatique d'un fichier téléchargé

3 réponses

Discussions similaires