Extraction données internet via VBA [Résolu]

Messages postés
2
Date d'inscription
dimanche 21 juin 2009
Statut
Membre
Dernière intervention
22 juin 2009
- - Dernière réponse : v1vr
Messages postés
1
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
2 février 2010
- 2 févr. 2010 à 23:04
bonjour collégues

je cherche depuis trés longtemps un code pour pouvoir extraire des données "METAR" du site internet suivant:

ftp://tgftp.nws.noaa.gov/data/observ...etar/stations/

et de les stocker dans un fichier .txt via VBA

les données "METAR" sont classées par aéroports

je suis capable de tapper un code qui m'ouvre une page internet explorer et me donne le "METAR" de l'aéroport que j ai choisi

mais je souhaiterais que ces données soit transféré directement dans un fichier .txt, sans qu'une page internet explorer ne s'affiche

si quelqu un pourrais me donner un gros coup de main , j apprecierais énormément

merci d'avance de votre coup de main
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
2
Date d'inscription
dimanche 21 juin 2009
Statut
Membre
Dernière intervention
22 juin 2009
3
Merci
super merci bocoup , le code marche parfaitement


mslts


cyrille


 

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de aviateur23
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010
0
Merci
Salut,


Voici le code pour télécharger directement un de tes fichiers METAR sur ton disque dur sans qu'une page ne s'affiche.

Il te faut :

- Une Form
- Une Textbox : Text1
- Un bouton : Command1
- Deux Labels : Label1 et Label2


Et....


le code suivant :


Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0

Private Sub Form_Load()
Command1.Caption = "Download METAR"
End Sub


Private Sub Command1_Click()

Dim sourceUrl As String
Dim targetFile As String
Dim hfile As Long

sourceUrl = "ftp://tgftp.nws.noaa.gov/data/observations/metar/stations/AABS.TXT"
targetFile = "c:\AABS.TXT"

Label1.Caption = sourceUrl
Label2.Caption = targetFile

If DownloadFile(sourceUrl, targetFile) Then

hfile = FreeFile
Open targetFile For Input As #hfile
Text1.Text = Input$(LOF(hfile), hfile)
Close #hfile

End If

End Sub


Public Function DownloadFile(ByVal sURL As String, _
ByVal sLocalFile As String) As Boolean

Dim lngRetVal As Long

DownloadFile = URLDownloadToFile(0&, _
sURL, _
sLocalFile, _
0&, _
0&) = ERROR_SUCCESS

End Function


Voilà t'as la base.

A toi de modifier par la suite les variables sourceUrl et targetFile.

En espérant que ça puisse t'aider.

@+


(Accepte la réponse pour clore ce sujet si ça te convient)
Commenter la réponse de xpert12
Messages postés
1
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
2 février 2010
0
Merci
Bonjour est il possible d obtenir les METAR et TAF de terrains de depart et de destination sous excel?
Merci
Commenter la réponse de v1vr

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.