Récupérer données web dans une cellule excel

**Muret31** · 03/01/2016, 19h01

Bonjour,

Je bute sur le code ci-dessous, je cherche à récupérer les données météo de ce site dans une cellule excel:

Metar value = EBBR

exemple: "EBBR 031720Z 14013KT 9999 -RA FEW015 06/05 Q0993 TEMPO 4000 RA"

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
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Row = Range("METAR").Row and_
 Target.Column = Range("METAR").Column Then
 Dim IE As New InternetExplorer
 'IE.Visible = True
 IE.Navigate "https://www.aviationweather.gov/metar/data?ids=" & Range("METAR").Value
 Do
 DoEvents
 Loop Until IE.readyState = READYSTATE_COMPLETE
 Dim Doc As HTMLDocument
 Setdoc = IE.document
 Dim sCODE As String
 sCODE = Trim(Doc.getElementsByTagName("code").innerText)
 IE.Quit
 Dim aCODE As Variant
 aCODE = Split(sCODE, ",")
 Range("RESULTS").Value = aCODE
 End If
 End Sub

Par avance merci, si vous avez un code plus simple je suis preneur aussi.

**Sebphyto** · 04/01/2016, 13h58

Bonjour,
As-tu une URL complète pour ce site afin de regarder?

A quoi correspond ta

Code :

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

Range("METAR")

?

C'est quoi que çà???

Metar value = EBBR

exemple: "EBBR 031720Z 14013KT 9999 -RA FEW015 06/05 Q0993 TEMPO 4000 RA"

Dans ton code il y a une chose qui ne semble bizarre

Code :

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

1
2
3
Dim aCODE As Variant
 aCODE = Split(sCODE, ",")
 Range("RESULTS").Value = aCODE

Un split renvoit un tableau, mais à quoi correspond ta

Code :

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

Range("RESULTS").

seb

**Muret31** · 04/01/2016, 16h50

Bonjour Seb, merci d'avoir répondu et meilleurs vœux, en effet c'est un code que j'ai récupéré sur le net et que j'ai essayé d'adapter.... je cherche à récupérer des données météo sur le site suivant:
https://www.aviationweather.gov
une fois sur le site il faut aller dans "metars"
ensuite dans la case "IDs" en bas taper le code d'un aéroport exemple "EBBR" et clicker sur "get metar data" , on arrive sur la page qui m'intéresse c'est à dire récupérer toute la ligne qui commence par EBBR dans une cellule excel...voilà tu sais tout maintenant 😀
Merci encore

**Sebphyto** · 04/01/2016, 17h23

Re,

Ta demande n'ai plus forcément la même que celle du départ, car en gros il faut ouvrir la page web (IE) avec ce type d'adresse:
https://www.aviationweather.gov/meta...date=0&hours=0
comme dans ton code

Code :

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

1
2
'IE.Visible = True
 IE.Navigate "https://www.aviationweather.gov/metar/data?ids=" & Range("METAR").Value

Par contre tu n'a pas répondu à mes questions

Code :

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

Range("METAR").

C'est quoi dans ta range??? c'est un tableau ??? car dans ton code il y a un row et une column

Code :

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

Target.Row = Range("METAR").Row And Target.Column = Range("METAR").Column

C'est un workbook change??? pourquoi???

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

Revenons à l'URL:
comment renseignes-tu cela?

Code :

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

ids=EBBR&format=raw&date=0&hours=0

et çà c quoi, à quoi ça correspond??

Code :

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

Range("RESULTS").

seb

**Muret31** · 04/01/2016, 19h00

En fait "Range metar" correspond à une cellule que j'ai renommé j'aurais pu aussi mettre Range A1 par exemple .... pour " Range Result" j'ai fait pareil aussi....
Concernant le code lui même je l'ai récupéré sur le net et j'ai essayé de l'adapter, si tu as un autre code à me proposer je suis preneur, merci.

Le "Range metar" correspond à la cellule où je marque le code de l'aéroport "EBBR"
Et le "Range Result " si le code marche 😀 c'est la cellule où je dois avoir normalement mes données récupérées du site...

**Marc-L** · 04/01/2016, 20h06

Il y a déjà eu une demande en avril 2013 de "METAR" sur ce forum réglée via un objet QueryTable …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …