Ouvrir une page web

Résolu
Deudeu79 Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   -  
Deudeu79 Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   -
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.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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

    2
    1. Deudeu79 Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   23
       
      bonjour,

      merci pivert avec ton code cela fonctionne
      0