Ouvrir une page Internet depuis VBA

Résolu
fourvin Messages postés 286 Statut Membre -  
fourvin Messages postés 286 Statut Membre -
Bonsoir,

Je suis sous Office 2007 et cherche comment ouvrir une URL Internet donnée depuis une procédure VBA.
Par exemple, comment faire ouvrir par VBA dans mon navigateur par défaut l'URL http://www.commentcamarche.net ?

Merci d'avance pour les réponses.

1 réponse

  1.
    cousinhub29 Messages postés 1115 Date d'inscription   Statut Membre Dernière intervention   382
     
    Bonjour,

    Essai effectué avec au choix FF, puis IE, puis de nouveau FF comme navigateur par défaut....

    Dans un module standard : 

    Option Explicit 

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 Ouvrir() 
    Dim Fichier As String 
     
    Fichier = "https://www.commentcamarche.net/" 
    ShellExecute 0, "", Fichier, "", "", 0 
End Sub


    Bonne nuit
    11
    1. fourvin Messages postés 286 Statut Membre 102
       
      Merci de ce retour. Dans mes recherches ultérieures à ma question, je suis aussi tombé sur ce code, mais j'espérais qu'il existe une fonction VBA plus simple !

      Merci.
      0
    2. fourvin Messages postés 286 Statut Membre 102
       
      Bonsoir,

      On m'a également fourni cette forme simplifiée pour Access, probablement dégradée, mais qui ne m'a pas posé de problème à utiliser : 

      Public Function fIE(wID As String, wCHEM As String) 
    ' Dans un contrôle de formulaire, ouvre l'URL correspondant au code 
    ' wCHEM=chemin de base du site http://... 
    ' WID=identifiant de la page 

    Dim A
    A = Shell("C:\Program Files\Internet Explorer\iexplore.exe  "+wCHEM+wID, vbNormalFocus) 
End Function
      0