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.

A voir également:

1 réponse

Réponse 1 / 1
cousinhub29 Messages postés 1122 Statut Membre 363
 
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 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
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