{ACCESS} lancer le navigateur par defaut

Résolu/Fermé

Creutzou Messages postés 550 Date d'inscription lundi 17 mai 2010 Statut Membre Dernière intervention 30 mai 2013 - Modifié par Creutzou le 1/10/2010 à 16:19
Creutzou Messages postés 550 Date d'inscription lundi 17 mai 2010 Statut Membre Dernière intervention 30 mai 2013 - 26 nov. 2010 à 12:08

Bonjour,

je suis actuellement en train de développer une application en vba access, à un moment j'ai besoin de lancer une page internet, seulement je n'ai aucune idée de comment faire pour lancer la page web tout court, ou lancer via le navigateur par défaut. Pour le moment je suis obliger de passer via "Internet Explorer".

je vous mets mon petit bout de code

Dim objIE As Variant  

Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Navigate chemin & "http://www.XXXXXXX.fr"  
objIE.Visible = True

merci d'avance !

ps: sinon je pensais passer par un petit batch pour lancer la page internet, mais je trouve ca un peu "barbare" :/

Tout vient à point à qui sait attendre

A voir également:

{ACCESS} lancer le navigateur par defaut
Navigateur privé - Guide
Safari navigateur - Télécharger - Navigateurs
Windows 11 afficher plus d'options par défaut - Guide
Navigateur opera - Télécharger - Navigateurs
Mot de passe par defaut livebox - Guide

4 réponses

Réponse 1 / 4

Creutzou Messages postés 550 Date d'inscription lundi 17 mai 2010 Statut Membre Dernière intervention 30 mai 2013 30
5 nov. 2010 à 15:44

un petit up ?

Réponse 2 / 4

Creutzou Messages postés 550 Date d'inscription lundi 17 mai 2010 Statut Membre Dernière intervention 30 mai 2013 30
22 nov. 2010 à 17:00

tjs personne ?

Réponse 3 / 4

bidule
Modifié par bidule le 23/11/2010 à 13:49

Beurk :

Ca en déclaration

Private 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

Ca dans ton code (tu peux aussi directement instancier ShellExecute si tu préfères)

Public Sub OpenDocument(S As String, Optional Parm As String = "")
Dim RC As Long
RC = ShellExecute(0, "open", S, Parm, "", 0)
If RC < 33 Then MsgBox "Shell Execute (" & S & ") has failed (Code : " & RC & ")", vbExclamation
End Sub

Réponse 4 / 4

Creutzou Messages postés 550 Date d'inscription lundi 17 mai 2010 Statut Membre Dernière intervention 30 mai 2013 30
26 nov. 2010 à 12:08

Merci pour ton bout de code, j'ai un peu du mal avec les API's donc je ne mettais pas penché de ce coté. Mais à croire que je n'ai pas vraiment le choix !

/me fais chauffer le café, allume une clope et s'écrie : " C'est parti !!!!!!!!!!!!!!!"

Discussions similaires

Problème replay "MYTF1" visionage vidéos

Exemple de base de données access

La passerelle par défaut n'est pas disponible

Erreur 403: You don't have permission to access on this server ?

Discussions similaires

Newsletters