Test Date et critères sur page web

Version imprimable

18/02/2015, 19h01
Sebphyto

Test Date et critères sur page web

Bonjour à tous,

Après multiples réflexions, et recherches, je vous sollicite encore une fois...

Pour la partie récupération sur une page web avec Querytables c'est ok, j'arrive à extraire ce que je souhaite.

Mais voilà, pour récupérer tous les jours mes données, j'ai besoin qu'il test si la date est ok en un premier lieu

Exemple:

j'ai deux façon de faire:

- soit il teste la date d'aujourd'hui (le choix se fait dans userform) ---> dans ce cas l'adresse web ne mentionne pas la date, il faut tester avec HTLM..je pense

Code:

<h3 class="color">Aujourd'hui - Mercredi 18 Février</h3>

- soit, si je m'absente, je saisie une date dans Usf (par calendrier)---> et dans celui-ci l'adresse web change et mentionne la date dans url (archives = http://......../....../archives/jour?day=2015-02-15)

Voilà pour la partie date

Pour les critères sur ces pages web, j'y reviendrai plus tard car je dois rédiger quelques choses de compréhensible pour tout le monde.

Merci de votre aide

A+

Sinon tu peux recupérer le code HTML de la page avec la fonction suivante et ensuite, tu peux extraire le tag <h3>...</h3> avec la fonction InStr...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Function GetHTML(SourceURL As String)
On Error GoTo GetHTMLError
 
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", SourceURL, False
    .Send
        If .Status <> 200 Then
            GetHTML = CVErr(xlErrNA)
        Else
            GetHTML = .ResponseText
        End If
  End With
Exit Function
 
GetHTMLError:
GetHTML = CVErr(xlErrNA)
End Function

19/02/2015, 10h56
Sebphyto

Bonjour Excel-Malin,

Comment te dire...pourrais-tu être plus explicit???

Car je ne comprends pas pourquoi je dois récupérer le code HTML?

Sinon après test du code....il me renvoit "#VALEUR"

En bref c le flou artistique.....:arf:

A+
19/02/2015, 11h55
Excel-Malin.com

Je pensais que tu voulais extraire la date à partir du tag H3...

voit ton message précédent:

Citation:

il faut tester avec HTLM..je pense

et l'appeçu du code HTML.

Si c'est le cas, tu peux extraire le code HTML de la page avec la fonction que j'ai posté et ensuite, avec les fonctions pour traiter le texte (comme InStr), tu peux trouver le bon tag (ici le H3) et son contenu.

Mais j'ai peut-être mal compris ta question de départ???
19/02/2015, 12h01
Sebphyto

Salut Excel-Malin,

Et merci de ton aide qui m'est précieuse dans ce dédale d'information....

Citation:

Extraire H3

Oui c ça pour la comparer

En faite, il faut que je compare la date dans la page web à celle d'aujourd'hui ou à une date antérieure, puis de là en fonction du résultat, il continuera la procédure pour aller cherche mes infos voulus.

Par contre ton code me renvoit une erreur "#VALEUR"
19/02/2015, 15h38
Sebphyto

Re,

Je pense qu'il faut déjà passer par "IsDate ", afin qu'il teste si c'est bien une date

Et si c bien la date du jour ou la date antérieur renseignée dans Usf alors il continue la procédure.

Après de là, il faut qu'il scrute environ 10 pages associés à cette date mais en fonction d'un critère.

Exemple de procédure:

1-Connexion au lien http par bouton
2- regarde si format date ok
3- regarde si date correspond à la date du jour ou date antérieure selon Usf (si date antérieure, la connexion se fera par un autre lien "archive")
4- si ok, alors connexion selon critère "si dans feuil R1" alors clic sur R1, si dans "feuilR2" alors clic sur R2, etc...
5- ouverture d'un autre page, sur cette page il peux y avoir 7,8,9 ou 10 liens qu'il doit scruter chacun leur tour
6- dans chaque page, je récupère via QueryTable mes données que je mettrai en forme dans une BDD par la suite

Voilà

Merci de votre aide