Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb.
Pour être plus concret, dans la page http://www.zeturf.com/fr/resultats
Je cherche le code VBA permettant de renseigner le jour, le mois, l'année
et cliquer sur le bouton "validez"
Merci d'avance pour votre aide, Mikel
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
dunkelzahn
Bonjour,
Voila un code qui a fonctionné chez moi.
Dim x, y Dim IE As Object Set IE = CreateObject("internetexplorer.application") 'Pour le jour IE.Navigate (WebSite) IE.Visible = True IE.Top = 0 IE.Left = 0 'Obtention en nombre de points de la largeur d'écran IE.Width = GetSystemMetrics32(SM_CXSCREEN) 'ou bien IE.Height = GetSystemMetrics32(SM_CYSCREEN) 'Boucle pour attendre le chargement complet de la page Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set dct = IE.Document For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name = "recherche_jour" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Day(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo mois End If Next End If Next 'Pour le mois mois: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name = "recherche_mois" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Month(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo annee End If Next End If Next 'Pour l'année annee: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name = "recherche_annee" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Year(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo valide End If Next End If Next valide: For Num = 0 To IE.Document.getElementsByTagName ("input").Length - 1 Debug.Print dct.getElementsByTagName("input").Item (Num).name If dct.getElementsByTagName("input").Item(Num).name = "tpl.credit.confirm" Then dct.getElementsByTagName("input").Item(Num).Click End If Next
On 5 mar, 16:43, "Mikel" wrote:
Bonjour!
Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb. Pour être plus concret, dans la pagehttp://www.zeturf.com/fr/resultats Je cherche le code VBA permettant de renseigner le jour, le mois, l'ann ée et cliquer sur le bouton "validez" Merci d'avance pour votre aide, Mikel
Bonjour,
Voila un code qui a fonctionné chez moi.
Dim x, y
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
'Pour le jour
IE.Navigate (WebSite)
IE.Visible = True
IE.Top = 0
IE.Left = 0
'Obtention en nombre de points de la largeur d'écran
IE.Width = GetSystemMetrics32(SM_CXSCREEN)
'ou bien IE.Height = GetSystemMetrics32(SM_CYSCREEN)
'Boucle pour attendre le chargement complet de la page
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Set dct = IE.Document
For Num = 0 To IE.Document.getElementsByTagName
("select").Length - 1
If dct.getElementsByTagName("select").Item(Num).name =
"recherche_jour" Then
For k = 0 To dct.getElementsByTagName
("select").Item(Num).Options.Length Step 1
If dct.getElementsByTagName("select").Item
(Num).Options(k).Text = Trim(Day(Now())) Then
dct.getElementsByTagName("select").Item
(Num).Options(k).Selected = dct.getElementsByTagName("select").Item
(Num).Options(k).Value
GoTo mois
End If
Next
End If
Next
'Pour le mois
mois: For Num = 0 To IE.Document.getElementsByTagName
("select").Length - 1
If dct.getElementsByTagName("select").Item(Num).name =
"recherche_mois" Then
For k = 0 To dct.getElementsByTagName
("select").Item(Num).Options.Length Step 1
If dct.getElementsByTagName("select").Item
(Num).Options(k).Text = Trim(Month(Now())) Then
dct.getElementsByTagName("select").Item
(Num).Options(k).Selected = dct.getElementsByTagName("select").Item
(Num).Options(k).Value
GoTo annee
End If
Next
End If
Next
'Pour l'année
annee: For Num = 0 To IE.Document.getElementsByTagName
("select").Length - 1
If dct.getElementsByTagName("select").Item(Num).name =
"recherche_annee" Then
For k = 0 To dct.getElementsByTagName
("select").Item(Num).Options.Length Step 1
If dct.getElementsByTagName("select").Item
(Num).Options(k).Text = Trim(Year(Now())) Then
dct.getElementsByTagName("select").Item
(Num).Options(k).Selected = dct.getElementsByTagName("select").Item
(Num).Options(k).Value
GoTo valide
End If
Next
End If
Next
valide: For Num = 0 To IE.Document.getElementsByTagName
("input").Length - 1
Debug.Print dct.getElementsByTagName("input").Item
(Num).name
If dct.getElementsByTagName("input").Item(Num).name =
"tpl.credit.confirm" Then
dct.getElementsByTagName("input").Item(Num).Click
End If
Next
On 5 mar, 16:43, "Mikel" <mike...@wanadoo.fr> wrote:
Bonjour!
Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb.
Pour être plus concret, dans la pagehttp://www.zeturf.com/fr/resultats
Je cherche le code VBA permettant de renseigner le jour, le mois, l'ann ée
et cliquer sur le bouton "validez"
Merci d'avance pour votre aide, Mikel
Dim x, y Dim IE As Object Set IE = CreateObject("internetexplorer.application") 'Pour le jour IE.Navigate (WebSite) IE.Visible = True IE.Top = 0 IE.Left = 0 'Obtention en nombre de points de la largeur d'écran IE.Width = GetSystemMetrics32(SM_CXSCREEN) 'ou bien IE.Height = GetSystemMetrics32(SM_CYSCREEN) 'Boucle pour attendre le chargement complet de la page Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set dct = IE.Document For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name = "recherche_jour" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Day(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo mois End If Next End If Next 'Pour le mois mois: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name = "recherche_mois" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Month(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo annee End If Next End If Next 'Pour l'année annee: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name = "recherche_annee" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Year(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo valide End If Next End If Next valide: For Num = 0 To IE.Document.getElementsByTagName ("input").Length - 1 Debug.Print dct.getElementsByTagName("input").Item (Num).name If dct.getElementsByTagName("input").Item(Num).name = "tpl.credit.confirm" Then dct.getElementsByTagName("input").Item(Num).Click End If Next
On 5 mar, 16:43, "Mikel" wrote:
Bonjour!
Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb. Pour être plus concret, dans la pagehttp://www.zeturf.com/fr/resultats Je cherche le code VBA permettant de renseigner le jour, le mois, l'ann ée et cliquer sur le bouton "validez" Merci d'avance pour votre aide, Mikel
Mikel
Super, ça fonctionne correctement! Bon, maintenant, je vais essayer de comprendre et adapter à mon contexte! Merci pour votre aide, Cordialement, Mikel
"dunkelzahn" a écrit dans le message de news: Bonjour,
Voila un code qui a fonctionné chez moi.
Dim x, y Dim IE As Object Set IE = CreateObject("internetexplorer.application") 'Pour le jour IE.Navigate (WebSite) IE.Visible = True IE.Top = 0 IE.Left = 0 'Obtention en nombre de points de la largeur d'écran IE.Width = GetSystemMetrics32(SM_CXSCREEN) 'ou bien IE.Height = GetSystemMetrics32(SM_CYSCREEN) 'Boucle pour attendre le chargement complet de la page Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set dct = IE.Document For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name "recherche_jour" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Day(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo mois End If Next End If Next 'Pour le mois mois: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name "recherche_mois" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Month(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo annee End If Next End If Next 'Pour l'année annee: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name "recherche_annee" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Year(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo valide End If Next End If Next valide: For Num = 0 To IE.Document.getElementsByTagName ("input").Length - 1 Debug.Print dct.getElementsByTagName("input").Item (Num).name If dct.getElementsByTagName("input").Item(Num).name "tpl.credit.confirm" Then dct.getElementsByTagName("input").Item(Num).Click End If Next
On 5 mar, 16:43, "Mikel" wrote:
Bonjour!
Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb. Pour être plus concret, dans la pagehttp://www.zeturf.com/fr/resultats Je cherche le code VBA permettant de renseigner le jour, le mois, l'année et cliquer sur le bouton "validez" Merci d'avance pour votre aide, Mikel
Super, ça fonctionne correctement!
Bon, maintenant, je vais essayer de comprendre et adapter à mon contexte!
Merci pour votre aide,
Cordialement, Mikel
"dunkelzahn" <dunkelzahn.dunkelzahn@gmail.com> a écrit dans le message de
news: a8feef0d-e877-4a7f-8372-bef64af2817c@l37g2000vba.googlegroups.com...
Bonjour,
Voila un code qui a fonctionné chez moi.
Dim x, y
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
'Pour le jour
IE.Navigate (WebSite)
IE.Visible = True
IE.Top = 0
IE.Left = 0
'Obtention en nombre de points de la largeur d'écran
IE.Width = GetSystemMetrics32(SM_CXSCREEN)
'ou bien IE.Height = GetSystemMetrics32(SM_CYSCREEN)
'Boucle pour attendre le chargement complet de la page
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Set dct = IE.Document
For Num = 0 To IE.Document.getElementsByTagName
("select").Length - 1
If dct.getElementsByTagName("select").Item(Num).name "recherche_jour" Then
For k = 0 To dct.getElementsByTagName
("select").Item(Num).Options.Length Step 1
If dct.getElementsByTagName("select").Item
(Num).Options(k).Text = Trim(Day(Now())) Then
dct.getElementsByTagName("select").Item
(Num).Options(k).Selected = dct.getElementsByTagName("select").Item
(Num).Options(k).Value
GoTo mois
End If
Next
End If
Next
'Pour le mois
mois: For Num = 0 To IE.Document.getElementsByTagName
("select").Length - 1
If dct.getElementsByTagName("select").Item(Num).name "recherche_mois" Then
For k = 0 To dct.getElementsByTagName
("select").Item(Num).Options.Length Step 1
If dct.getElementsByTagName("select").Item
(Num).Options(k).Text = Trim(Month(Now())) Then
dct.getElementsByTagName("select").Item
(Num).Options(k).Selected = dct.getElementsByTagName("select").Item
(Num).Options(k).Value
GoTo annee
End If
Next
End If
Next
'Pour l'année
annee: For Num = 0 To IE.Document.getElementsByTagName
("select").Length - 1
If dct.getElementsByTagName("select").Item(Num).name "recherche_annee" Then
For k = 0 To dct.getElementsByTagName
("select").Item(Num).Options.Length Step 1
If dct.getElementsByTagName("select").Item
(Num).Options(k).Text = Trim(Year(Now())) Then
dct.getElementsByTagName("select").Item
(Num).Options(k).Selected = dct.getElementsByTagName("select").Item
(Num).Options(k).Value
GoTo valide
End If
Next
End If
Next
valide: For Num = 0 To IE.Document.getElementsByTagName
("input").Length - 1
Debug.Print dct.getElementsByTagName("input").Item
(Num).name
If dct.getElementsByTagName("input").Item(Num).name "tpl.credit.confirm" Then
dct.getElementsByTagName("input").Item(Num).Click
End If
Next
On 5 mar, 16:43, "Mikel" <mike...@wanadoo.fr> wrote:
Bonjour!
Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb.
Pour être plus concret, dans la pagehttp://www.zeturf.com/fr/resultats
Je cherche le code VBA permettant de renseigner le jour, le mois, l'année
et cliquer sur le bouton "validez"
Merci d'avance pour votre aide, Mikel
Super, ça fonctionne correctement! Bon, maintenant, je vais essayer de comprendre et adapter à mon contexte! Merci pour votre aide, Cordialement, Mikel
"dunkelzahn" a écrit dans le message de news: Bonjour,
Voila un code qui a fonctionné chez moi.
Dim x, y Dim IE As Object Set IE = CreateObject("internetexplorer.application") 'Pour le jour IE.Navigate (WebSite) IE.Visible = True IE.Top = 0 IE.Left = 0 'Obtention en nombre de points de la largeur d'écran IE.Width = GetSystemMetrics32(SM_CXSCREEN) 'ou bien IE.Height = GetSystemMetrics32(SM_CYSCREEN) 'Boucle pour attendre le chargement complet de la page Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set dct = IE.Document For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name "recherche_jour" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Day(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo mois End If Next End If Next 'Pour le mois mois: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name "recherche_mois" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Month(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo annee End If Next End If Next 'Pour l'année annee: For Num = 0 To IE.Document.getElementsByTagName ("select").Length - 1 If dct.getElementsByTagName("select").Item(Num).name "recherche_annee" Then For k = 0 To dct.getElementsByTagName ("select").Item(Num).Options.Length Step 1 If dct.getElementsByTagName("select").Item (Num).Options(k).Text = Trim(Year(Now())) Then dct.getElementsByTagName("select").Item (Num).Options(k).Selected = dct.getElementsByTagName("select").Item (Num).Options(k).Value GoTo valide End If Next End If Next valide: For Num = 0 To IE.Document.getElementsByTagName ("input").Length - 1 Debug.Print dct.getElementsByTagName("input").Item (Num).name If dct.getElementsByTagName("input").Item(Num).name "tpl.credit.confirm" Then dct.getElementsByTagName("input").Item(Num).Click End If Next
On 5 mar, 16:43, "Mikel" wrote:
Bonjour!
Je reprends le fil du 26/02 qui ne m'a pas permit de résoudre mon pb. Pour être plus concret, dans la pagehttp://www.zeturf.com/fr/resultats Je cherche le code VBA permettant de renseigner le jour, le mois, l'année et cliquer sur le bouton "validez" Merci d'avance pour votre aide, Mikel