XL2010 VBA Internet Explorer, touche entrée

airvb

XLDnaute Nouveau
Bonjour ,
J''essaie de piloter IE11 via VBA.
Je butte sur l'envoie de la touche entrée.
J'ai bien retrouvé le champ ou je veux entrer une donnée, le champ est bien remplie , en revanche pas de bouton ok ou équivalent sur la page, il faut valider l'entrée par la touche entrée.

J'ai tenté d'ajouter VBCRLF à la string , sans résultat, le send keys n'agit pas .
Une idée ?

Merci


Mon code :
Code:
Dim IE As InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputZoneTexte As HTMLInputElement
Dim winShell As New ShellWindows
Dim DIS As String

DIS = "AAAA900BUNEP"
GoTo finerreur
erreur:
  MsgBox " ATTENTION : Veillez à avoir une fenêtre ouverte"
  Exit Sub
 finerreur:
'Set IE = ("internetExplorer.Application")
'IE.Visible = True

For Each IE In winShell '
  If Left(Trim(IE.LocationURL), 10) = "https://mapage.html" Then GoTo suite1
Next IE
GoTo erreur

suite1:
'IE.navigate ("https://mapage.html") 'page de recherche
'While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy = True '
'  DoEvents
'Wend

IE.navigate ("https://https://mapage.html") 'page de 'garde

While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy = True
  DoEvents
Wend

Set IEDoc = IE.document

Set InputZoneTexte = IEDoc.all("idBarcodeSearchInput")
InputZoneTexte.Value = ""
InputZoneTexte.Value = DIS & vbLfCr

SendKeys "{ENTER}", True

Set IEDoc = Nothing
Set InputZoneTexte = Nothing
End Sub
 

Statistiques des forums

Discussions
298 001
Messages
1 965 033
Membres
200 810
dernier inscrit
lejibe