Discussion :

[morpetk]

Bonjour, j'ai parcouru avec beaucoup d'intérêt (et mes maigres connaissances) le FAQ d'interaction avec Internet Explorer et VBA sous excel. Je ne trouve cependant pas la solution à mon problème.

Sur certains sites, dont celui-ci:
https://extranet.malakoffmederic.com...LogonAccess.do

le bouton "M'identifier" n'a ni ID, ni name... Je ne sais donc pas comment le rechercher pour l'actionner avec vba sous excel...

Pourriez-vous svp me dire par quel bout prendre ce problème?
Merci d'avance.

Pierre

[PMO2017]

Bonjour,

le bouton "M'identifier" n'a ni ID, ni name... Je ne sais donc pas comment le rechercher pour l'actionner avec vba sous excel...

J'ai trouvé cela

Code html :

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

<input type="submit" class="bt btRound gradientOrange boutonConnexion" value="M'identifier" title="M'identifier" onmousedown="multiTracker('/liensTOUTM/non-loggue/depuis-hp/bouton-connexion');">

[morpetk]

Bonjour,
Merci PMO2017. J'aurais effectivement pu copier le code html pour être plus efficace. Je savais le trouver, mais ne sais actionner ces boutons que si ils ont une "id" ou un "name". Or ca n'est pas le cas ici...

Auriez-vous une idée du code à mettre en oeuvre dans ce cas précis?

Merci d'avance.

[PMO2017]

Bonjour,

Source d'inspiration (voir la partie "IV-E. Petite variante")
http://qwazerty.developpez.com/tutor...a-excel/#LIV-E

Une piste avec le code suivant dans lequel il faudra adapter, à votre usage, les instructions signalées par des '///

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
'######################################################
'### Extraits de la source du <!-- DOCTYPE html --> ###
'######################################################
'<form name="logon" id="logon" action="/espaceClient/logon.do;jsessionid=194E7FE942B1C8DF5C8F0A42D20F5FA3.toutm-fo1" method="post">
'
'<input name="identifiant" tabIndex="1" class="text" id="identifiant" type="text" maxLength="20"/>
'
'<input name="password" tabIndex="2" class="text" id="password" type="password" maxLength="20"/>
'
'<input title="M'identifier" class="bt btRound gradientOrange boutonConnexion"
'onmousedown="multiTracker('/liensTOUTM/non-loggue/depuis-hp/bouton-connexion');
'" type="submit" jQuery1820048707125267887286="15" value="M'identifier"/>
'#######################################################
 
Sub InteractionIE()
Dim IE As Object              'InternetExplorer
Dim IEDoc As Object           'HTMLDocument
Dim InputZoneTexte As Object  'HTMLInputElement
Dim FormCherche As Object     'HTMLFormElement
 
'--- Ouvre et charge InternetExplorer ---
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://extranet.malakoffmederic.com/espaceClient/LogonAccess.do"
IE.Visible = True
WaitIE IE
 
'--- Le Document ---
Set IEDoc = IE.document
 
'--- Actions sur l'Identifiant ---
'<input name="identifiant" tabIndex="1" class="text" id="identifiant" type="text" maxLength="20"/>
Set InputZoneTexte = IEDoc.all("identifiant")
InputZoneTexte.Value = "Duchmarf"  '/// à adapter
WaitIE IE
 
'--- Actions sur le Mot de passe ---
'<input name="password" tabIndex="2" class="text" id="password" type="password" maxLength="20"/>
Set InputZoneTexte = IEDoc.all("password")
InputZoneTexte.Value = "123456"    '/// à adapter
WaitIE IE
 
'--- Actions sur le Submit du Form ---
'<form name="logon" id="logon" action="/espaceClient/logon.do;jsessionid=194E7FE942B1C8DF5C8F0A42D20F5FA3.toutm-fo1" method="post">
Set FormCherche = IEDoc.forms("logon")
'<input title="M'identifier" class="bt btRound gradientOrange boutonConnexion"
'onmousedown="multiTracker('/liensTOUTM/non-loggue/depuis-hp/bouton-connexion');
'" type="submit" jQuery1820048707125267887286="15" value="M'identifier"/>
FormCherche.submit
WaitIE IE
 
'--- Nettoyage ---
Set FormCherche = Nothing
Set InputZoneTexte = Nothing
Set IEDoc = Nothing
'IE.Quit    '/// pour quitter InternetExplorer (à déflaguer selon l'usage)
Set IE = Nothing
 
End Sub
 
'______________________________
Sub WaitIE(IE As Object)    'InternetExplorer
Do Until IE.readyState = 4      'READYSTATE_COMPLETE
  DoEvents
Loop
End Sub

[Invité]

bojour,
tu injecte du code javascript:

Code JavaScript :

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

This.logon.submit();

[morpetk]

Merci pour ces éléments, mais cela ne fonctionne malheureusement pas encore:

- Quand je prends le code proposé par PMO2017 (avec id et password corrects), le site se rafraichit et me dit que les informations fournies ne sont pas valables.
- Si je prends le code et que je quote toutes les "Actions sur le Submit du Form", le formulaire se remplit alors et si je clique manuellement sur le bouton, alors cela fonctionne. Ce n'est donc pas un problème des données id et password qui sont bien renseignées mais un problème sur le logon.

Avez-vous une idée?

rdurupt, désolé, mais je n'ai pas compris ce que tu me conseillais ne sachant pas comment intégrer javascript dans vba... Peut-être est-ce la solution à mon problème.

Merci!