Ouvrir une page web

Résolu
Bonjour tout le monde,

j'ai crée une page web et je voudrais que avec une macro je puisse l'ouvrir dans un navigateur web j'ai essayer avec la méthode shell mais impossible il ne veux pas me l'ouvrir es ce que quelqu'un peux m'aider s'il vous plait

je vous remercie d'avance

2 réponses

  1. Contributeur
    Bonjour,

    Comme ceci:

    Option Explicit
    Private Const SW_SHOWNORMAL As Long = 1&
    Private Const SW_MAXIMIZE   As Long = 3&
    Private 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
    
    Public Sub RunUrl(ByVal sUrl As String, Optional ByVal bMaximized As Boolean = False)
        ShellExecute 0&, "open", sUrl, vbNullString, vbNullString, IIf(bMaximized, SW_MAXIMIZE, SW_SHOWNORMAL)
    End Sub
    
    Private Sub CommandButton1_Click()
    RunUrl ("http://www.commentcamarche.net/forum/affich-31955833-ouvrir-une-page-web")
    End Sub
    

    1. bonjour,

      merci pivert avec ton code cela fonctionne