1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Sub testx()
testPat "bidule", "toto", "toulon", "04/03/1970", "var", 0, "m"
End Sub
Sub testPat(nom As String, prenom As String, commune As String, birth As Date, Departement As String, Optional pays As Variant = 0, Optional sexe As String = "m")
Dim liste As Object, WsH
Set WsH = CreateObject("wscript.shell")
With CreateObject("internetexplorer.application")
.Visible = True
.navigate "https://www.service-public.fr/particuliers/vosdroits/services-en-ligne-et-formulaires/ISE"
Do: DoEvents: Loop While .readyState <> 4
pays = IIf(pays = 0, "ise_france", "ise_world"): sexe = "ise-sex-" & sexe ' on deternine le quel id va etre cliqué pour le pays et le sexe
'-----------------------------------------------------------------------------------------------------------------------
For Each elem In .document.all: Set liste = IIf(elem.getAttribute("role") = "listbox", elem, liste): Next 'recherche de l'element pseudo listbox par son attribut"role"
'c est cet element qui contiendra la liste de choix de communes
'-----------------------------------------------------------------------------------------------------------------------
.document.getElementById("ise-commune").Focus:
Do:
i = i + 1
WsH.SendKeys (Mid(commune & " ", i, 1)) ' la commune ici tapée lettre par lettre
If Not liste.innerHTML Like "résultat" And liste.Children.Length >= 1 Then Exit Do 'a chaque fois on control si il n'y a pas "aucun resultat" et si il y a au moins 1 item dans la liste si oui c'est le seul alors le bon
Loop
WsH.SendKeys ("{DOWN}{ENTER}") ' on descends avec la simul de la touche fleche bas ca selectionne le premier
.document.getElementById(pays).Click
.document.getElementById("ise-departement").Value = Departement
.document.getElementById("ise-name").Value = nom ' le nom ici
.document.getElementById("ise-first-name-1").Value = prenom 'le prenom ici
.document.getElementById(sexe).Click
.document.getElementById("ise-birth-day").Value = Format(Day(birth), "#00")
.document.getElementById("ise-birth-month").Value = Format(Month(birth), "#00")
.document.getElementById("ise-birth-year").Value = Format(Year(birth), "#0000")
.document.getElementById("submit-button").Click
End With
End Sub |
Partager