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