Récupérer du WEB "texte" depuis VBA Excel

Version imprimable

28/10/2013, 15h21
JJMB92

Récupérer du WEB "texte" depuis VBA Excel

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.
28/10/2013, 15h46
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 ?
28/10/2013, 16h33
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:

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.

Oui, un peu dans les nuages ! … 8-)

Voici une approche avec la librairie Microsoft XML :

Code:

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

:yaisse1:
__________________________________________________________________________________________

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

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

28/10/2013, 17h44
patricktoulon

heu

Bonjour

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

tu auras ta solution

au Plaisir
29/10/2013, 15h22
JJMB92

[résolu] WEB et Excel

Merci à tous les deux.

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

Code:

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
31/10/2013, 14h13
patricktoulon

RE

bONJOUR

REGARDE (((ICI)))
OU BIEN (((PAR LA )))

Au plaisir
31/10/2013, 14h22
Marc-L

Oui Patrick !

Citation:

Envoyé par JJMB92

Celle de Marc-L est celle que je cherchais hier mais il me manquait la librairie (et en plus elle marche !;)).

Comme son fichier n'est pas une page Web mais un simple fichier texte, ma 'chtite procédure suffit largement !

Du reste c'est une adaptation de procédures que j'utilise depuis des années dont une utilise la même astuce
de ta contribution (innerText) mais qui là est inutile vu que le fichier est déjà au format texte …