renseigner une page web en VBA Excel

Le
Mikel
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 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
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
dunkelzahn
Le #18830551
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"
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
Le #18836041
Super, ça fonctionne correctement!
Bon, maintenant, je vais essayer de comprendre et adapter à mon contexte!
Merci pour votre aide,
Cordialement, Mikel

"dunkelzahn" 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"
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


Publicité
Poster une réponse
Anonyme