Ouvrir site WEB Firefox

[jip31]

Bonjour

J'utilise le code suivant pour ouvrir un site WEB avec IE
Sub Lance()
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http:\\osm"
IE.AddressBar = True
IE.MenuBar = True
IE.Toolbar = True
IE.Width = 1440
IE.Height = 900
IE.Resizable = True
IE.Visible = True
Set IE = Nothing


Je voudrais faire la même chose mais depuis firefox
Pouvez vous m'aider?
Merci!
End Sub

 

[Matheop]

Re : Ouvrir site WEB Firefox

Salut jip31.

Essaie ça pour voir.

Sub lancerFirefox()

Dim valeur
valeur = Shell("C:\progra~1\mozill~1\firefox.exe http://google.fr", 1)

End Sub

Cordialement,
Mat'

 

[jip31]

Re : Ouvrir site WEB Firefox

bonjour matichoux

merci bcp c'est ce dont j'ai besoin
bonne journée