Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel renseigner une page web en VBA Excel

renseigner une page web en VBA Excel

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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


Avatar
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