pages web et boucles

Le
steph b
Bonjour,

J'ai une page web dont l'adresse est par exemple:
http://www.xxxxxx-yyyyy -75005-4.htm

j'aimerais faire une boucle pour faire varier le 75005 de 1 à 20 ( les
arrondissements de paris)
et le 4.htm de 1 à 10 si possible sur chacune des pages
par exemple:
75005-1.htm
75005-2.htm
75005-3.htm
75005-4.htm
75005-5.htm et plus si elle existe

et ensuite si il n'y a plus de sous pages
75006-1.htm
75006-2.htm
75006-3.htm
75006-4.htm
75006-5.htm
75006-6.htm
75006-7.htm
75006-8.htm
75006-9.htm et plus si elle existe

et ainsi de suite

et sur chaque page il parcoure la page web et me releve tous les caracteres
06. puis les 11 suivants
et me mets tout ce qu 'il a trouver dans une feuille excel.

est ce possible?

merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
steph b
Le #21202701
j'oubliais l'élément ou il va chercher le texte s'appelle
<p class="texte" >

j'ai fais source sur ma page et il me donne cela

merci d'avance

"steph b" 4b798897$0$941$
Bonjour,

J'ai une page web dont l'adresse est par exemple:
http://www.xxxxxx-yyyyy -75005-4.htm

j'aimerais faire une boucle pour faire varier le 75005 de 1 à 20 ( les
arrondissements de paris)
et le 4.htm de 1 à 10 si possible sur chacune des pages
par exemple:
75005-1.htm
75005-2.htm
75005-3.htm
75005-4.htm
75005-5.htm et plus si elle existe

et ensuite si il n'y a plus de sous pages
75006-1.htm
75006-2.htm
75006-3.htm
75006-4.htm
75006-5.htm
75006-6.htm
75006-7.htm
75006-8.htm
75006-9.htm et plus si elle existe

et ainsi de suite

et sur chaque page il parcoure la page web et me releve tous les
caracteres 06. puis les 11 suivants
et me mets tout ce qu 'il a trouver dans une feuille excel.

est ce possible?

merci d'avance



FdeCourt
Le #21203321
Salut,

Oui c'est possible, mais je n'ai rien compris à ce que tu souhaitais
faire.
Pour commencer à t'aider, tu peux utiliser le control Microsoft
Internet Controls (dans VBE > Outils > Référence > Cocher le
controle), qui te permet de piloter Internet Explorer, de récupérer le
code source des pages, de l'étudier et de le mettre, dans le format
que tu veux sous Excel.

Par exemple :
Dim IE As InternetExplorer
With IE
.Visible = True
.Silent = True
.Navigate "http://www.xxxxxx-yyyyy -75005-4.htm"
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents

'Pour récupérer l'URL sur laquelle se trouve IE : loc_url =
IE.LocationURL
'Pour récupérer le texte de ta page HTML : texte
= .Document.documentElement.innerText
'Tu peux naviguer dans toutes les formulaires et champs (le mieux
étant qu'ils aient un ID ou un NOM précis, sinon, il faux faire des
boucles) : .document.all("NomDeMonChamp").Value
'Soumettre des formulaires : .document.forms(0).submit

Etc, etc, etc enfin automatiser plein de truc.

Cordialement,

F.
steph b
Le #21205771
Bonjour,
Pour être honnete j'ai pas tout compris à ce vous dîtes...

voici mon code que j'ai pu trouver par ci par là
Sub connexion()

Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Variant

Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate
("http://www.pap.fr/vente-appartement-particulier-annonce/vente-appartement-particulier-annonce-paris-751.htm")
' attente de fin de chargement
Next j
Do Until ie.ReadyState = 4
DoEvents
Loop

Set IEdoc = ie.Document

' ici je ne sais pas comment récupérer les données de <p class="texte" >
' et sur chaque page il parcoure la page web et me trouve tous les
' caracteres 06. puis les 11 suivants
' et me mets tout ce qu 'il a trouver dans une feuille excel.

Set DOCelement = IEdoc.getElementsByName("texte").Item
pour mettre


End Sub

merci d'avance

"FdeCourt"
Salut,

Oui c'est possible, mais je n'ai rien compris à ce que tu souhaitais
faire.
Pour commencer à t'aider, tu peux utiliser le control Microsoft
Internet Controls (dans VBE > Outils > Référence > Cocher le
controle), qui te permet de piloter Internet Explorer, de récupérer le
code source des pages, de l'étudier et de le mettre, dans le format
que tu veux sous Excel.

Par exemple :
Dim IE As InternetExplorer
With IE
.Visible = True
.Silent = True
.Navigate "http://www.xxxxxx-yyyyy -75005-4.htm"
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents

'Pour récupérer l'URL sur laquelle se trouve IE : loc_url IE.LocationURL
'Pour récupérer le texte de ta page HTML : texte
= .Document.documentElement.innerText
'Tu peux naviguer dans toutes les formulaires et champs (le mieux
étant qu'ils aient un ID ou un NOM précis, sinon, il faux faire des
boucles) : .document.all("NomDeMonChamp").Value
'Soumettre des formulaires : .document.forms(0).submit

Etc, etc, etc enfin automatiser plein de truc.

Cordialement,

F.
Publicité
Poster une réponse
Anonyme