Discussion :

[NMAHIEU]

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 :

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
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

[curt]

Bonjour,

as-tu regardé par là http://qwazerty.developpez.com/tutor...-et-vba-excel/

Curt

[NMAHIEU]

Bonjour Curt,

Merci pour la réponse. Oui j'avais regardé ce tuto, mais je crois qu'il concerne les liens entre IE et excel, alors que l'étape 2 qui coince est une interaction entre la fenêtre "afficher les téléchargements" de Windows et le code

[curt]

Bonsoir,

alors peut-être que ce lien (qui est la suite de l'article précédent) conviendra : https://www.developpez.net/forums/d1...elechargement/

Curt