Discussion :

[JJMB92]

Bonjour,

Je cherche à récupérer les infos météo depuis un site Web (http://www.wunderground.com/weathers...&graphspan=day & month=10 & day=" & Date_fin + i & "& year=2013") : c'est ok pour la partie HTML avec vos exemples sur le site mais je bute sur une page "texte" retournée par ce site Web pour les jours passés : (lien = "http://static.meteo-paris.com/station/NOAAMO.TXT")
Çà devrait être plus simple puisque c'est du texte ...
Si l'un de vous peut m'aiguiller ...
Merci pour vos retours.

[Marc-L]

Bonjour,

merci de présenter clairement & exhaustivement le besoin !

Lire le fichier texte en mémoire comme une page web, le télécharger sur le disque dur ou bien what else ?

[JJMB92]

Oupss j'étais un peu trop dans mon univers !
Le but est de lire cette page depuis VBA : http://static.meteo-paris.com/station/NOAAMO.TXT => placer le retour dans un "objet" afin de récupérer les informations pour les "coller" dans une feuille Excel.
J'ai essayé avec

Code :

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

1
2
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument ...

mais la page n'étant pas vraiment en HTML mais en Texte je n'arrive pas à retrouver les informations de cette page.
Merci.

[Marc-L]

Oui, un peu dans les nuages ! …

Voici une approche avec la librairie Microsoft XML :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'   Menu Outils, Références :  cocher Microsoft XML, v3.0
 
Private Declare Function InternetCheckConnectionA Lib "Wininet" (ByVal Site$, ByVal one&, _
                                                                 ByVal zero&) As Boolean
 
Function WebOK(Optional ByVal URL$ = "http://www.msn.com") As Boolean
            P& = InStr(8, URL, "/"):  If P Then URL = Left$(URL, P)
         WebOK = InternetCheckConnectionA(URL, 1, 0)
End Function
 
 
Function WebText$(SOURCE$, Optional START$)
     Dim oXhttp As New MSXML2.XMLHTTP
     If WebOK(SOURCE) = False Then Exit Function
     oXhttp.Open "POST", SOURCE, False
     oXhttp.send
 
     If oXhttp.Status = 200 Then
         T$ = oXhttp.responseText
 
         If START > "" Then
             S& = InStr(T, START)
             If S Then T = Mid$(T, S) Else T = ""
         End If
 
         WebText = T
     End If
 
     Set oXhttp = Nothing
End Function
 
 
Sub Demo()
    Debug.Print WebText("http://static.meteo-paris.com/station/NOAAMO.TXT")
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Des chercheurs qui cherchent, on en trouve. Des chercheurs qui trouvent, on en cherche ! (Charles De Gaulle)

[patricktoulon]

Bonjour

regarde dans les contributions deux de mes exemplaires code source internet et getclassename

tu auras ta solution

au Plaisir

[JJMB92]

Merci à tous les deux.

J'ai fini par trouver une solution vraiment pas très belle mais qui marche : dans la variable

Code :

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

IEDoc.DocumentElement.all.Item(2).all.Item(0).FirstChild.Data

Celle de Marc-L est celle que je cherchais hier mais il me manquait la librairie (et en plus elle marche !).
Patrick je n'ai pas trouvé (encore) tes contributions correspondantes.
merci encore à tous les 2 pour vos réponses.

JM