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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
steph b
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" a écrit dans le message de news: 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
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.
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" a écrit dans le message de news: 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
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.
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
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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