Ouvrir une page Internet depuis VBA [Résolu/Fermé]

Signaler
Messages postés
270
Date d'inscription
lundi 19 mars 2007
Statut
Membre
Dernière intervention
2 février 2012
-
Messages postés
270
Date d'inscription
lundi 19 mars 2007
Statut
Membre
Dernière intervention
2 février 2012
-
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

Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
285
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60588 internautes nous ont dit merci ce mois-ci

Messages postés
270
Date d'inscription
lundi 19 mars 2007
Statut
Membre
Dernière intervention
2 février 2012
99
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.
Messages postés
270
Date d'inscription
lundi 19 mars 2007
Statut
Membre
Dernière intervention
2 février 2012
99
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