Discussion :

[VBA learner]

Bonjour à tous,

Alors j'essaie d'automatiser le téléchargement de données. Je bute sur le moment où je dois gérer la boite de téléchargement de IE (ENREGISTRER/ENREGISTRER SOUS/ANNULER).

J'ai donc testé 2 sub dans mon classeur (en PJ). La 1ère permet de naviguer sur IE et d'aller directement vers le fichier voulu sauf qu'on tombe sur cette fameuse boite de téléchargement.. Et je n'arrive pas à la gérer avec mon code.

La 2e sub est une idée trouvée sur un forum qui avec les fonctions "URLDownloadToFile" et "DownloadFile" (au dessus des sub) permettrait (dans l'idéal) d'effectuer le téléchargement que je souhaite..

SUB1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub enregistrement_fichier_csv_1()
 
'declarations pour les outils de navigation
Dim ie As InternetExplorer
 
Const CheminRep As String = "C:\Users\\Documents\Fichiers YAHOO"
 
'lien internet vers lequel aller: Yahoo Finance
Set ie = New InternetExplorerMedium
ie.Visible = True
ie.Navigate ("http://real-chart.finance.yahoo.com/table.csv?s=%5EFCHI&d=8&e=21&f=2016&g=d&a=2&b=1&c=1990&ignore=.csv")
 
End Sub

SUB2:

Code :

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

1
2
3
4
5
6
7
8
9
Sub enregistrement_fichier_csv_2()
 
Const CheminRep As String = "C:\Users\\Documents\Fichiers YAHOO"
 
DownloadFile _
"http://real-chart.finance.yahoo.com/table.csv?s=%5EFCHI&d=8&e=21&f=2016&g=d&a=2&b=1&c=1990&ignore=.csv" _
, CheminRep
 
End Sub

Merci d'avance pour l'aide que vous pourrez me fournir!