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 :
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