1 pièce(s) jointe(s)
Extraction données IE sous Excel VBA
Bonjour à tous,
Nouveau sur le forum et débutant en VBA, je me permets de poster car je ne parviens pas à trouver de solution applicable à mon problème.
Je souhaiterais disposer de données disponibles sur un site Internet dans mon fichier excel.
Voici le projet :
1. Ouverture de l'URL via une macro (ok)
2. Ouverture automatique du fichier téléchargé (format JSON lu en .txt) (là je bloque)
3. Conversion des données JSON au format CSV à intégrer dans mon fichier excel (pas encore abordé car bloqué)
Le problème simple est le suivant : InternetWindow.Navigate renvoie à une boite de téléchargement IE.
Je ne sais pas comment automatiser l'action "ouvrir".
Il me restera ensuite à sélectionner les données du fichier ouvert pour les convertir en CSV et les intégrer à mon fichier excel.
Si toutefois vous avez des idées plus efficaces, je suis preneur !
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub CommandButton1_Click()
Dim InternetWindow As Object
Set InternetWindow = CreateObject("InternetExplorer.Application")
' etape 1 : récuparation de la source des données
InternetWindow.Visible = True
InternetWindow.Navigate (Sheets("Feuil1").Range("D3")) & (Sheets("Feuil1").Range("D5"))
Do
DoEvents
Loop Until InternetWindow.readystate = READYSTATE_COMPLETE
' etape 2 : ouverture du fichier téléchargé
' etape 3 : conversion des données JSON au format CSV
' etape 4 : collage dans Excel Feuil1
MsgBox "Extraction terminée"
End Sub |
Merci beaucoup
