{ACCESS} lancer le navigateur par defautRésolu/Fermé

Question

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" :/
Configuration: Windows 7 / Firefox 3.6.10

Tout vient à point à qui sait attendre

Creutzou · Answer

un petit up ?

Creutzou · Answer

tjs personne ?

bidule · Answer

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

Creutzou · Answer

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 !!!!!!!!!!!!!!!"

{ACCESS} lancer le navigateur par defaut

4 réponses

Newsletters