Discussion :

[richardprod]

Bonjour,

Je dois suivre le paiement des amendes des employés.
J'ai donc un excel avec la liste des identifiant de Telepaiement.
Actuellement, je vais manuellement sur le site des amendes https://www.amendes.gouv.fr/portail/.../saisienum.jsp
Lorsque vous saisissez cet identifiant vous arrivez alors sur une page de confirmation avec entre autre une référence de confirmation de paiement.
Je souhaiterz automatiser cela avec du code en VBA.
J'ai suivi le tuturiel tres bien fait de Qwazerty http://qwazerty.developpez.com/tutor...-et-vba-excel/ mais j'ai un bug.
Si joint mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
43
44
45
46
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim ieIEWindow As SHDocVw.InternetExplorer
Dim sIEURL As String
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
   'Chargement d'une page Web 
   IE.navigate "https://www.amendes.gouv.fr/portail/paiement/saisienum.jsp"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
 
   'On pointe notre Zone de texte
    Set cell1 = IEDoc.all("saisie1")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
 
cell1.Select
Application.SendKeys "3"
Application.SendKeys "3"
Application.SendKeys "3"
Application.SendKeys "6"
Application.SendKeys "4"
Application.SendKeys "4"
Application.SendKeys "0"
Application.SendKeys "1"
Application.SendKeys "8"
Application.SendKeys "9"
Application.SendKeys "6"
Application.SendKeys "6"
Application.SendKeys "0"
Application.SendKeys "1"
Application.SendKeys "5"
Application.SendKeys "1"
Application.SendKeys "~"
WaitIE IE
msgbox( IE.LocationURL)

Bon problème:
Avec mon code j'arrive à saisir l'identifiant et arriver à la page qui me confirme que c'est payé ou à la page ou il faut que je paye si je n'ai pas encore payé.
Le fait de récupérer l'adresse de la page me permettra de savoir si c'est payé ou pas.

Mais mon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IE.LocationURL

me renvoie la page initiale et pas la nouvelle page qui est affichée.

Comment est ce que je peux récupérer l'adresse de la nouvelle page qui vient de s'afficher?

PS: Vu que les amendes sont personnelles, j'ai changé l'identifiant et mis un au pif. Vous n'arriverez donc pas à la page de paiement mais peut etre avez vu déjà recu une amendes et pourrez tester avec la votre :-).

Merci d'avance pour votre aide.

Olivier

[joe.levrai]

Bonjour,

j'ai la chance de n'avoir jamais utilisé ce site

le titre des deux pages est peut être différent ?

essaye de regarder la valeur de IEDoc.Title pour voir

ou alors, rechercher un mot clé unique sur l'une des deux pages, si tu le trouves (ou pas), tu sais où tu es

[patricktoulon]

bonjour

bon visiblement tu a zaper plusieurs chapitres du tutoriel de qwazerty


il y a plein d'erreur dans ton code et d'inutilité


tu t'es contenté de recopier des elements de code de la demo du tuto sans comprendre ce que ca voulais dire
je te suggere de le relire mais moins vite


je vais tester cette url et je reviens

[patricktoulon]

re
bon voila une solution et il y en a bien d'autre
seul probleme le nombre de touche que tu tapais est insuffisant il en manque 4
j'ai donc ajouté 4 chiffres bidon pour l'exemple
je n'utilise pas dans cet exemple le sendkey
en effet selon les pc le "application.sendkey ne fonctionne que dans l'application excel

alors on scinde le numero avec mid et on place les portions dans leur case respectives
essai avec un code de paiment entier et deboque la ligne rouge pour le click valider & dis moi si ca fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub RechercheVBAExcel()
'Déclaration des variables
    Dim IE As Object, IEDoc As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.navigate "https://www.amendes.gouv.fr/portail/paiement/saisienum.jsp"    'Chargement d'une page Web
    IE.Visible = True    'Affichage de la fenêtre IE
    waitie IE
    Set IEDoc = IE.document    'On pointe le membre Document
    ' exemple de code 3336440189660151
    numero = "33364401896601515691"
    'On pointe les!!!!! Zones de texte sans utiliser de variables
    IEDoc.all("saisie1").innertext = Mid(numero, 1, 4)
    IEDoc.all("AMD_saisie2").innertext = Mid(numero, 5, 4)
    IEDoc.all("AMD_saisie3").innertext = Mid(numero, 9, 4)
    IEDoc.all("AMD_saisie4").innertext = Mid(numero, 13, 4)
    'je n'ai pas assez de chiffre pour remplir ces deux dernieres cases
    IEDoc.all("AMD_saisie5").innertext = Mid(numero, 17, 2)
    IEDoc.all("cle").innertext = Mid(numero, 19, 2)
    'IEDoc.all("I1").Click 'on clique maintenant sur le bouton valider
    waitie IE
End Sub
Function waitie(IE)
    Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy
End Function