Importation d'un fichier Excel depuis internet.
Bonsoir,
je souhaite réaliser un code permettant d'importer quotidiennement un fichier Excel se trouvant sur internet (ou de manière équivalente copier le contenu de ce fichier dans un onglet de mon fichier courant).
J'ai la première partie du code qui ouvre la page web contenant le fichier
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Sub OuvrirPageWeb()
'Nécessite d'activer les références:
'Microsoft HTML Objects Library
Dim IE As Object
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Dim j As Integer, i As Integer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.theice.com/marketdata/reports/ReportCenter.shtml?reportId=10&contractKey=60"
Do Until IE.readyState = 4
DoEvents
Loop |
Je souhaite désormais copier la feuille excel présente sur cette page ou "simuler" un click sur le bouton télécharger (enregistrer) et télécharger le fichier.
Merci d'avance à toute personne pouvant m'aider à résoudre ce problème.
Bonne soirée.
