Je suis débutant sur excel et je ne maîtrise pas trop vba. J'aimerais cependant importer des données d'un site de turf(geny) afin de créer ma base de données perso. Pour le moment, je fais çà manuellement, mais c'est terriblement long et une importation automatique me serait d'un grand secours!
Je souhaite pour être plus précis connaître une donnée bien précise; le numéro du cheval qui est le plus riche pour chaque course et par hippodrome sur une période donnée ex: (du 1 janvier au 31 décembre 2014).
Je ne sais pas si ma question est très compréhensible pour les "non-turfistes" mais j'espère que vous pourrez m'aider.
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
isabelle
bonjour Juan,
voici un exemple pour naviguer sur la page google et une autre pour connaitre le nom des objects d'une page web
Sub NaviguerPageWeb() 'nécéssite d'activer la référence Microsoft HTML Objects Library 'nécéssite d'activer la référence Microsoft Internet Controls Dim i As Integer Dim IE As internetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "http://www.google.ca/" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For i = 0 To Helem.Length - 1 If Helem(i).getAttribute("name") = "q" Then 'q est le nom de la case pour entrer le mot ou la phrase à rechercher Helem(i).innerText = "je recherche un mot" Helem(i + 1).Click 'le bouton Recherche Google vient juste après q donc i + 1 End If Next End Sub
Sub ListeDesObjectsPageWeb() 'nécéssite d'activer la référence Microsoft HTML Objects Library 'nécéssite d'activer la référence Microsoft Internet Controls Dim i As Integer Dim IE As internetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "http://www.google.ca/" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For i = 0 To Helem.Length - 1 Range("A" & i + 1) = Helem(i).getAttribute("name") Range("B" & i + 1) = Helem(i).getAttribute("value") Next End Sub
isabelle
Le 2015-04-20 15:02, juandepedro a écrit :
Bonjour à tous,
Je suis débutant sur excel et je ne maîtrise pas trop vba. J'aimerais cependant importer des données d'un site de turf(geny) afin de créer ma base de données perso. Pour le moment, je fais çà manuellement, mais c'est terriblement long et une importation automatique me serait d'un grand secours!
Je souhaite pour être plus précis connaître une donnée bien précise; le numéro du cheval qui est le plus riche pour chaque course et par hippodrome sur une période donnée ex: (du 1 janvier au 31 décembre 2014).
Je ne sais pas si ma question est très compréhensible pour les "non-turfistes" mais j'espère que vous pourrez m'aider.
Un grand merci à tous
juan
bonjour Juan,
voici un exemple pour naviguer sur la page google et une autre pour connaitre le
nom des objects d'une page web
Sub NaviguerPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim i As Integer
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.google.ca/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
For i = 0 To Helem.Length - 1
If Helem(i).getAttribute("name") = "q" Then 'q est le nom de la case pour
entrer le mot ou la phrase à rechercher
Helem(i).innerText = "je recherche un mot"
Helem(i + 1).Click 'le bouton Recherche Google vient juste après q donc i + 1
End If
Next
End Sub
Sub ListeDesObjectsPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim i As Integer
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.google.ca/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
For i = 0 To Helem.Length - 1
Range("A" & i + 1) = Helem(i).getAttribute("name")
Range("B" & i + 1) = Helem(i).getAttribute("value")
Next
End Sub
isabelle
Le 2015-04-20 15:02, juandepedro a écrit :
Bonjour à tous,
Je suis débutant sur excel et je ne maîtrise pas trop vba. J'aimerais cependant
importer des données d'un site de turf(geny) afin de créer ma base de données
perso. Pour le moment, je fais çà manuellement, mais c'est terriblement long et
une importation automatique me serait d'un grand secours!
Je souhaite pour être plus précis connaître une donnée bien précise; le numéro
du cheval qui est le plus riche pour chaque course et par hippodrome sur une
période donnée ex: (du 1 janvier au 31 décembre 2014).
Je ne sais pas si ma question est très compréhensible pour les "non-turfistes"
mais j'espère que vous pourrez m'aider.
voici un exemple pour naviguer sur la page google et une autre pour connaitre le nom des objects d'une page web
Sub NaviguerPageWeb() 'nécéssite d'activer la référence Microsoft HTML Objects Library 'nécéssite d'activer la référence Microsoft Internet Controls Dim i As Integer Dim IE As internetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "http://www.google.ca/" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For i = 0 To Helem.Length - 1 If Helem(i).getAttribute("name") = "q" Then 'q est le nom de la case pour entrer le mot ou la phrase à rechercher Helem(i).innerText = "je recherche un mot" Helem(i + 1).Click 'le bouton Recherche Google vient juste après q donc i + 1 End If Next End Sub
Sub ListeDesObjectsPageWeb() 'nécéssite d'activer la référence Microsoft HTML Objects Library 'nécéssite d'activer la référence Microsoft Internet Controls Dim i As Integer Dim IE As internetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "http://www.google.ca/" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For i = 0 To Helem.Length - 1 Range("A" & i + 1) = Helem(i).getAttribute("name") Range("B" & i + 1) = Helem(i).getAttribute("value") Next End Sub
isabelle
Le 2015-04-20 15:02, juandepedro a écrit :
Bonjour à tous,
Je suis débutant sur excel et je ne maîtrise pas trop vba. J'aimerais cependant importer des données d'un site de turf(geny) afin de créer ma base de données perso. Pour le moment, je fais çà manuellement, mais c'est terriblement long et une importation automatique me serait d'un grand secours!
Je souhaite pour être plus précis connaître une donnée bien précise; le numéro du cheval qui est le plus riche pour chaque course et par hippodrome sur une période donnée ex: (du 1 janvier au 31 décembre 2014).
Je ne sais pas si ma question est très compréhensible pour les "non-turfistes" mais j'espère que vous pourrez m'aider.
Un grand merci à tous
juan
michel.remy94
bonjour depuis le debut de l'annee on n'arrive plus a importer les pages geny. j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania. essaies avec les requetes Michel.
bonjour
depuis le debut de l'annee on n'arrive plus a importer les pages geny.
j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania.
essaies avec les requetes
Michel.
bonjour depuis le debut de l'annee on n'arrive plus a importer les pages geny. j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania. essaies avec les requetes Michel.
Fredo P.
1)Aller chercher les numéro de course du lendemain avec cette commande CherchecodeSource "http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow" Sub CherchecodeSource(B$) Dim CodeSource As String, IE As Object Dim TempFile As String On Error Resume Next EnaF [I1] = B Feuil10.[A:A].ClearContents Set IE = CreateObject("InternetExplorer.application") TempFile = "c:Fred.txt" IE.Visible = False ' Ou True IE.navigate URL:=B Do Until IE.ReadyState = 4 DoEvents Loop CodeSource = IE.document.body.innerHTML Open TempFile For Output As #1 Print #1, CodeSource Close #1 Open TempFile For Input As #1 Do While Not EOF(1) Input #1, LaLigne a = a + 1 Feuil10.Range("A" & a) = LaLigne 'Feuil à adapter Loop Close #1 Kill TempFile IE.Quit Set IE = Nothing End Sub
pour les partants de préférence avant le départ des courses "URL;http://www.tierce-magazine.com/accueil/les-courses-avc/pid111-partants.html?race_id=" & e les arrivées "URL;http://www.tierce-magazine.com/accueil/les-courses-apc/pid126-arrivee.html?race_id=" & e "e" représente un numéro de course tiercé magazine ou pari turf
a écrit dans le message de news:
bonjour depuis le debut de l'annee on n'arrive plus a importer les pages geny. j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania. essaies avec les requetes Michel.
1)Aller chercher les numéro de course du lendemain avec cette commande
CherchecodeSource
"http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow"
Sub CherchecodeSource(B$)
Dim CodeSource As String, IE As Object
Dim TempFile As String
On Error Resume Next
EnaF
[I1] = B
Feuil10.[A:A].ClearContents
Set IE = CreateObject("InternetExplorer.application")
TempFile = "c:Fred.txt"
IE.Visible = False ' Ou True
IE.navigate URL:=B
Do Until IE.ReadyState = 4
DoEvents
Loop
CodeSource = IE.document.body.innerHTML
Open TempFile For Output As #1
Print #1, CodeSource
Close #1
Open TempFile For Input As #1
Do While Not EOF(1)
Input #1, LaLigne
a = a + 1
Feuil10.Range("A" & a) = LaLigne 'Feuil à adapter
Loop
Close #1
Kill TempFile
IE.Quit
Set IE = Nothing
End Sub
pour les partants de préférence avant le départ des courses
"URL;http://www.tierce-magazine.com/accueil/les-courses-avc/pid111-partants.html?race_id="
& e
les arrivées
"URL;http://www.tierce-magazine.com/accueil/les-courses-apc/pid126-arrivee.html?race_id="
& e
"e" représente un numéro de course tiercé magazine ou pari turf
<michel.remy94@gmail.com> a écrit dans le message de news:
409cb442-68bc-4148-ab46-d00f31381b67@googlegroups.com...
bonjour
depuis le debut de l'annee on n'arrive plus a importer les pages geny.
j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est
dans la version payante .Sinon tu as certaines donnees avec turfomania.
essaies avec les requetes
Michel.
1)Aller chercher les numéro de course du lendemain avec cette commande CherchecodeSource "http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow" Sub CherchecodeSource(B$) Dim CodeSource As String, IE As Object Dim TempFile As String On Error Resume Next EnaF [I1] = B Feuil10.[A:A].ClearContents Set IE = CreateObject("InternetExplorer.application") TempFile = "c:Fred.txt" IE.Visible = False ' Ou True IE.navigate URL:=B Do Until IE.ReadyState = 4 DoEvents Loop CodeSource = IE.document.body.innerHTML Open TempFile For Output As #1 Print #1, CodeSource Close #1 Open TempFile For Input As #1 Do While Not EOF(1) Input #1, LaLigne a = a + 1 Feuil10.Range("A" & a) = LaLigne 'Feuil à adapter Loop Close #1 Kill TempFile IE.Quit Set IE = Nothing End Sub
pour les partants de préférence avant le départ des courses "URL;http://www.tierce-magazine.com/accueil/les-courses-avc/pid111-partants.html?race_id=" & e les arrivées "URL;http://www.tierce-magazine.com/accueil/les-courses-apc/pid126-arrivee.html?race_id=" & e "e" représente un numéro de course tiercé magazine ou pari turf
a écrit dans le message de news:
bonjour depuis le debut de l'annee on n'arrive plus a importer les pages geny. j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania. essaies avec les requetes Michel.
Fredo P.
la commande : B$="http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow" CherchecodeSource B$
a écrit dans le message de news:
bonjour depuis le debut de l'annee on n'arrive plus a importer les pages geny. j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania. essaies avec les requetes Michel.
la commande :
B$="http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow"
CherchecodeSource B$
<michel.remy94@gmail.com> a écrit dans le message de news:
409cb442-68bc-4148-ab46-d00f31381b67@googlegroups.com...
bonjour
depuis le debut de l'annee on n'arrive plus a importer les pages geny.
j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est
dans la version payante .Sinon tu as certaines donnees avec turfomania.
essaies avec les requetes
Michel.
la commande : B$="http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow" CherchecodeSource B$
a écrit dans le message de news:
bonjour depuis le debut de l'annee on n'arrive plus a importer les pages geny. j'importe les donnees de paristurf. Mais pour ce que tu demandes ,c'est dans la version payante .Sinon tu as certaines donnees avec turfomania. essaies avec les requetes Michel.
