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.