Ouvrir une page Internet depuis VBA

Résolu
fourvin Messages postés 276 Date d'inscription   Statut Membre Dernière intervention   -  
fourvin Messages postés 276 Date d'inscription   Statut Membre Dernière intervention   -
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.

A voir également:

1 réponse

cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
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
fourvin Messages postés 276 Date d'inscription   Statut Membre Dernière intervention   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
fourvin Messages postés 276 Date d'inscription   Statut Membre Dernière intervention   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