alias_2003
XLDnaute Occasionnel
Bonjour à tous,
J'obtiens une erreur 438 avec le code suivant :
Quelqu'un a-t-il une idée ??
Merci beaucoup
Bonne journée,
Amicalement
J'obtiens une erreur 438 avec le code suivant :
Code:
Private Sub CommandButton3_Click()
Dim lReponse As Long
Dim IE As InternetExplorer
Dim IEdoc As HTMLDocument
Dim DOCelement As Object
Dim URL As String
Dim Lot As String
IE.Visible = True
IE.navigate ("http://www.piercenet.com/docsearch/")
Do Until IE.readyState = 4
DoEvents
Loop
Set IEdoc = IE.document
Set DOCelement = IEdoc.getElementById("ProdNum")
DOCelement.Value = TextBox6.Value 'C'est à ce niveau que j'obtiens l'erreur
Set DOCelement = IEdoc.getElementById("lotnum")
DOCelement.Value = TextBox7.Value
Set DOCelement = IEdoc.all("Search")
IE.Visible = True
End Sub
Quelqu'un a-t-il une idée ??
Merci beaucoup
Bonne journée,
Amicalement
Dernière édition: