pages web et boucles

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" <stephol@prodiag.fr> a écrit dans le message de news:
4b798897$0$941$ba4acef3@news.orange.fr...

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

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.

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" <fdecourt@gmail.com> a écrit dans le message de news:
3efb65ff-f8d6-4aa1-aef9-446bbc9a8f21@a5g2000yqi.googlegroups.com...
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.