Récupérer adresse de page web en VBA
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:
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 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
