Ouvrir une page Internet depuis VBA
Résolu/Fermé
fourvin
Messages postés
276
Date d'inscription
lundi 19 mars 2007
Statut
Membre
Dernière intervention
2 février 2012
-
9 oct. 2010 à 22:46
fourvin Messages postés 276 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 2 février 2012 - 12 oct. 2010 à 23:20
fourvin Messages postés 276 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 2 février 2012 - 12 oct. 2010 à 23:20
A voir également:
- Vba ouvrir une page web
- Supprimer une page word - Guide
- Traduire une page web - Guide
- Aucune application permettant d'ouvrir ce lien n'a été trouvée ✓ - Forum Wiko
- Impossible d'ouvrir une page web malgré connexion ok ✓ - Forum Réseaux sociaux
- Le document à télécharger contient des poèmes. faites en sorte que chaque poème commence sur une nouvelle page. après cette modification, combien de pages le document contient-il ? ✓ - Forum Word
1 réponse
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
Modifié par cousinhub29 le 10/10/2010 à 05:43
Modifié par cousinhub29 le 10/10/2010 à 05:43
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
10 oct. 2010 à 09:55
Merci.
Modifié par fourvin le 12/10/2010 à 23:22
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