Ver originales (Francés)

Abrir una página web desde VBA

Resuelto
fourvin Mensajes publicados 286 Estado Miembro -  
fourvin Mensajes publicados 286 Estado Miembro -
Buenas noches,

Estoy usando Office 2007 y busco cómo abrir una URL de Internet dada desde un procedimiento VBA.
Por ejemplo, ¿cómo puedo abrir en VBA en mi navegador por defecto la URL http://www.commentcamarche.net?

Gracias de antemano por las respuestas.

Configuración: Windows 7 / Firefox 3.6.10

1 respuesta

  1.
    cousinhub29 Mensajes publicados 1114 Fecha de registro   Estado Miembro Última intervención   382
     
    Hola,

    Prueba realizada con la elección de FF, luego IE, y luego de nuevo FF como navegador predeterminado...

    En un módulo estándar: 

    Opción Explicita Public Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub Abrir() Dim Archivo As String Archivo = "https://www.commentcamarche.net/" ShellExecute 0, "", Archivo, "", "", 0 End Sub


    Buenas noches
    11
    1. fourvin Mensajes publicados 286 Estado Miembro 102
       
      Gracias por tu respuesta. En mis investigaciones posteriores a mi pregunta, también me encontré con este código, pero esperaba que existiera una función VBA más simple.

      Gracias.
      0
    2. fourvin Mensajes publicados 286 Estado Miembro 102
       
      Buenas noches,

      También me proporcionaron esta forma simplificada para Access, probablemente degradada, pero que no me ha causado problemas para usar: 

      Public Function fIE(wID As String, wCHEM As String) ' En un control de formulario, abre la URL correspondiente al código ' wCHEM=directorio base del sitio http://... ' WID=identificador de la página Dim A A = Shell("C:\Program Files\Internet Explorer\iexplore.exe "+wCHEM+wID, vbNormalFocus) End Function
      0