Autocomplétion d'un champ sur IE

Version imprimable

Bonjour à tous !

J'ai suivi le tuto de Qwazerty "Interaction avec Internet Explorer via VBA Excel" (http://qwazerty.developpez.com/tutor...-et-vba-excel/).
J'ai déjà pu faire tellement de chose grâce à ce tuto, c'est un tuto incroyable !

Aujourd'hui je tombe sur une difficulté sur une page intranet qui a un champ qui s'autocomplète :
Chaque personne a un identifiant et je ne connais que cette identifiant.
Manuellement je rentre l'identifiant dans le champ, par exemple : 365202
Et la cellule s'autocomplète et, à la place de l'identifiant, apparait le nom de la personne : Frédéric Martin

Le champ est codé ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 <input name="target_manager_id_text" tabindex="0" title="" class="ppm_field formFieldNoWidth autosuggest-svl-input x-form-field x-form-text" id="d426071e315" aria-required="true" style="padding-top: 1px; padding-bottom: 1px; border-right-color: currentColor; border-right-width: 0px; border-right-style: none;" onkeydown="return handleEnter(event, 'filter', 'page')" onclick="if(event.stopPropagation) event.stopPropagation(); event.cancelBubble=true;" onfocus="javascript:clarity.uitk.ext.browse.BrowseFieldExt.autoSuggestInit(this,event);" type="text" size="25" maxlength="2147483647" alt="" value="" auto_init="false" auto_webcontext="/niku" auto_formname="page" auto_minlength="1" auto_delay="500" auto_setupfunction="lookupAutosuggest" auto_paramvalues="attributeCode=target_manager_id:objectCode=project:odf_pk=:partitionCode=NIKU.ROOT:viewType=properties:param_inv_id=:" auto_lookuptype="BROWSE_PROJMGR" auto_attrcode="target_manager_id" auto_id="d426071e315">
Je peux affecter ce champ sans problème :
Code:

1 2 Set CP = IEDoc.all("target_manager_id_text") 'Chef de projet CP.Value = "365202"
Mais l'identifiant reste là, l'autocomplétion n'a pas lieu.

J'imagine qu'il faut que j'essaye de simuler la saisie au clavier avec des SendKeys. Mais je n'y parviens pas.

J'ai essayé plein de syntaxes, en vrac :

CP.Focus
DoEvents
CP.Click
DoEvents
SendKeys "3"
DoEvents
CP.SendKeys "3"
DoEvents

Au mieux, j'obtiens une saisie dans mon fichier Excel au lieu de la page web.

Savez vous comment faire le focus sur le champ et lui envoyer des frappes de clavier ?

Sinon j'ai aussi essyaer d'exécuter le javascript :
Code:

1 2 3 JavaCode = "javascript:clarity.uitk.ext.browse.BrowseFieldExt.autoSuggestInit(this,event);" IEDoc.parentWindow.execScript JavaCode, "JavaScript"
Mais cela plante. Je pense que c'est bien au dessus de mon niveau de vouloir executer le javascript. Mais si vous voyez quelque chose de simple dans cette direction je suis preneur.

Merci par avance !

10/10/2017, 11h54
Marc-L

Bonjour,

et avec CP.onclick ?

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
10/10/2017, 12h02
beaudire

Citation:

Envoyé par Marc-L

Bonjour,

et avec CP.onclick ?

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Hello Marc,

Merci pour la suggestion. Je viens d'essayer et j'obtiens le message "Erreur Automation"
10/10/2017, 12h23
Ben_L
Bonjour,

Cette erreur ne serait-elle pas due au fait que la page n'est pas encore totalement chargée lorsque le code s'exécute ?
Avez-vous essayé d'ajouter, avant la ligne qui cause l'erreur :
Code:

1 2 3 While oNav.readyState <> READYSTATE_COMPLETE Or oNav.Busy = True DoEvents Wend
... avec oNav l'objet navigateur utilisé.

Citation:
Envoyé par Ben_L
Bonjour,

Cette erreur ne serait-elle pas due au fait que la page n'est pas encore totalement chargée lorsque le code s'exécute ?
Avez-vous essayé d'ajouter, avant la ligne qui cause l'erreur :
Code:

1 2 3 While oNav.readyState <> READYSTATE_COMPLETE Or oNav.Busy = True DoEvents Wend
... avec oNav l'objet navigateur utilisé.
Hello Ben,

Merci pour la suggestion.
Avant d'arriver à ce champ, j'accède à plein d'autre sur la page, sans problème.
En plus, avant d'accéder au premier champ je fais un WaitIE IE et un WaitDoc IEDoc (issu du tuto mentionné)
auquel j'ai rajouté une fonction WaitObj (conseillé également dans le forum lié au tuto il me semble) qui fait une boucle tant que l'objet n'est pas disponible :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 '====================' ' WaitObj '====================' Sub WaitObj(name As String, _ IE As InternetExplorer, _ IEDoc As HTMLDocument, _ ByRef MyObject As Object, _ Feuille As Worksheet) WaitIE IE WaitDoc IEDoc x = 0 Do Sleep 1000 Set MyObject = IEDoc.all(name) x = x + 1 Feuille.Range("m_wait_timer").Value = x Loop While MyObject Is Nothing And x <> 30 If x = 30 Then MsgBox "WaitObj : Erreur de chargement de la page : on a attendu 30s sans succès (" & name & ")" End If End Sub

11/10/2017, 13h54
beaudire

Personne n'a rencontré ce genre de champs qui s'autocomplètent ?
11/10/2017, 14h31
Ben_L

Si la page est accessible, pourriez-vous en donner l'adresse ?
La façon dont la page est codée pourrait avoir un impact sur le mode de résolution, en tout cas si on passe par un execScript.
12/10/2017, 06h39
Qwazerty
Salut

Je regarderais de ce coté là
Code:

1 2 3 4 onfocus="javascript:clarity.uitk.ext.browse.BrowseFieldExt.autoSuggestInit(this,event);" onkeydown="return handleEnter(event, 'filter', 'page')"
Si je comprends le fonctionnement je dirais
Le Onfocus, Initialise l’auto-complétion, probablement en mettant des variables à 0 et en pointant sur le champs sur lequel on vient de cliquer
Puis en cours de frappe (onkeydown), on exécute un code qui produit l’auto-complétion dans le champs mémorisé lors du Focus

Le mieux serait en effet d'avoir accès à ta page, si rien n'est confidentiel, afin de regarder le contenu du code et voir s'il n'est pas possible de contourner le problème autrement.
Quand je dis contourner, c'est que je me demande la chose suivante. Si ta page est un formulaire de saisi, une fois les informations saisies, il va transmettre tout ça au serveur, hors je doute que dans la base de donnée soit stocké le nom des gens en claire, il sera surement plutôt utilisé le numéro d'identification.
Si cette intuition est bonne, tu doit avoir un champs où un paramètre d'un champs qui conserve ce numéro d'identification en vu de la création de la requête serveur. Il te faudrait donc trouver où est stocké ce numéro une fois ton champs de saisie implémenté avec le nom des gens en claire par le code de la page.

J'espère ne pas t'avoir embrouillé :p

Bonne journée
Qwaz