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
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.
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 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
Merci d'avance à toute personne pouvant m'aider à résoudre ce problème.
Bonne soirée.
Partager