Busqueda datos Web

   Buenos días a Tod@s

Estoy intentando que se habrá la pagina Web según una ruta especifica y una vez abierta en el cuadro del buscador, ya figuran los datos que deseo encontrar, el tema esta que no consigo que ejecute la búsqueda automáticamente y me maximice la ventana de buscador web.

Sugerencias Please Saludos

Adjunto código inicial

Private Sub Foto_DblClick(Cancel As Integer)
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.google.es/imghp?hl=es&authuser=0&ogbl"

Do Until ie.ReadyState = 4
 DoEvents
Loop

With ie
    .Document.getElementsByName("q")(0).Value = "Logo " & "" & Me.[Nombre_cliente] & ""

    '.Document.getElementsByName("btnK")(0).Click
    .Visible = True

End With

Set ie = Nothing

End Sub

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
MaccaM Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 06/Octubre/2020 Localización: Barcelona Estado: Sin conexión Puntos: 11	Opciones de entrada Responder Cita MaccaM Informar de mensaje Gracias(0) Cita Respuesta Tema: Busqueda datos Web Enviado: 25/Marzo/2021 a las 11:19
	Buenos días a Tod@s Estoy intentando que se habrá la pagina Web según una ruta especifica y una vez abierta en el cuadro del buscador, ya figuran los datos que deseo encontrar, el tema esta que no consigo que ejecute la búsqueda automáticamente y me maximice la ventana de buscador web. Sugerencias Please Saludos Adjunto código inicial Private Sub Foto_DblClick(Cancel As Integer) Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "https://www.google.es/imghp?hl=es&authuser=0&ogbl" Do Until ie.ReadyState = 4 DoEvents Loop With ie .Document.getElementsByName("q")(0).Value = "Logo " & "" & Me.[Nombre_cliente] & "" '.Document.getElementsByName("btnK")(0).Click .Visible = True End With Set ie = Nothing End Sub
	Muchas Gracias por su ayuda. Saludos