A voir également:
- Ouvrir une page Internet depuis VBA
- Ouvrir une page Internet depuis VBA ✓ - Forum - Bureautique
- Impossible d'ouvrir une page internet ✓ - Forum - Freebox
- Mon telephone ouvre des pages internet tout seul - Forum - Virus / Sécurité
- Connection ok mais aucune page ne s'affiche ✓ - Forum - Internet / Réseaux sociaux
- Connectée, mais impossible d'afficher les pag ✓ - Forum - Réseau
1 réponse
cousinhub29
- Messages postés
- 579
- Date d'inscription
- mardi 10 août 2010
- Statut
- Membre
- Dernière intervention
- 11 novembre 2018
Bonjour,
Essai effectué avec au choix FF, puis IE, puis de nouveau FF comme navigateur par défaut....
Dans un module standard :
Bonne nuit
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
- Messages postés
-
270
- Date d'inscription
- lundi 19 mars 2007
- Statut
- Membre
- Dernière intervention
- 2 février 2012
99Merci.
- Messages postés
-
270
- Date d'inscription
- lundi 19 mars 2007
- Statut
- Membre
- Dernière intervention
- 2 février 2012
99On 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