Excel - Lllenar celda web desde Exe=cel

Un saludo,

Tengo el siguiente codigo para hacer una busqueda en la web, pero no funciona. Alguna recomendacion?


Sub cherhcer_routesigo()

Dim No_Structure As String

Set IE = New InternetExplorerMedium

IE.Navigate "https://www.geomsp.qc/igo2/transports-quebec/"

IE.Document.getElementByName("mat-input-0").Value = "00138-04-010-000C"
IE.Document.getElementByName("mat-input-0").Enter

End Sub

La web aparentemente es incorrecta

Un saludo,

La pagina es correcta, hay restricciones de ingreso.

Envio imagen del codigo web en archivo anexo




Sub cherhcer_routesigo()

Dim No_Structure As String

Set IE = New InternetExplorerMedium

IE.Navigate "https://www.geomsp.qc/igo2/transports-quebec/"

IE.Document.getElementById("mat-input-0").Value = "00138-04-010-000C"
IE.Document.getElementById("mat-input-0").Enter

End Sub

• Pagina-web-SIGO.7z(501,1 KB)