Ouvrir internet explorer

Question

Salut tout le monde,

Voila, j’ai un formulaire qui permet l’acces directement à des site (sur l’appuie sur leur logo, qui est une image). Mais je ne sais pas comment lancer internet explorer, et encore moins à une adresse précise.
Merci beaucoup.
Bisous.

vialstephane · Answer

salut

par exemple pour ouvrir le site de vbfrance
Le chemin d'acces a internet explorer peut varier d'une machine a une autre.

Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.vbfrance.com", vbMaximizedFocus

@+

ndsaerith · Answer

oki merci beaucoup beaucoup

bisous

vialstephane · Answer

De rien!

Pour ton fichier powerpoint , tu fait pareil !

@+

cs_rene38 · Answer

Bonsoir

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

Private Sub Command1_Click()
ShellExecute Me.hWnd, "open", "http://www.vbfrance.com/", vbNullString, vbNullString, 1
End Sub

cs_Death Angel · Answer

Salut, il y a plus simple pour ouvrir internet explorer pour fois une page web, sans avoir besoin d'aller le cherche das c:\programe files etc...

shell "explorer.exe " & "http://www.vbfrance.com"

Ne pas oublier l'espace après le explorer.exe, sinon ça ne marche pas

cs_zarkor · Answer

Comment lancer le navigateur par défaut?

Exemple moi j'ai Firefox, j'aimerai donc que ça lance la page web dans le navigateur par défaut de l'utilisateur et pas forcemment IE.
Quelqu'un a une idée?

fretman92 · Answer

Pour avoir le navigateur par défaut, tu cherches la clé
"HKCU\software\Clients\Starmenuinternet\(par défaut)"
tu fais un 
dim navig as string = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Clients").opensubkey("Starmenuinternet").getvalue("(par défaut)"

fretman92 · Answer

Pour avoir le navigateur par défaut, tu cherches la clé
"HKCU\software\Clients\Starmenuinternet\(par défaut)"
tu fais un 
dim navig as string = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE").OpenSubKey("Clients").opensubkey("Starmenuinternet").getvalue("(par défaut)"

mortalino · Answer

Salut, rene38 a donnée la bonne solution, mis à part que le UserForm ne possède pas de Handle. Voici comment y palier : ' *** Dans ton UserForm : Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) End Sub Private Sub CommandButton1_Click() ' change le nom du bouton ainsi que l'adresse du site ShellExecute hwnd, vbNullString, "http://www.site.html", vbNullString, "http://www.site.html", SW_SHOWNORMAL End Sub ' *** Dans un Module : 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 Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

Ouvrir internet explorer

9 réponses

Discussions similaires