Lancer FireFox au lieu d'InternetExplorer par Macro

fr-users
#1

Bonjour à tous,

Avec le bout de code ci-dessous j'arrive à lancer l'ouverture d'un site par macro dans InternetExplorer.

Mais je souhaiterai faire la même chose avec FireFox

Dim IE  As Object

IE = CreateObject("InternetExplorer.Application.1")
  IE.Visible = 1
  IE.Navigate( "https://www.gouvernement.fr/info-coronavirus")

Merci d'avance

Jean-Luc

#2

Bonsoir,
A adapter avec le bon chemin

/Sub OuvrirPageHtml_FF //
//  Dim RetVal As Long //
////
//  '10 : Affichage en plein écran //
//  RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe" _ //
//    , 10 , "https://www.gouvernement.fr/info-coronavirus") //
////
//End Sub//
/
Claude

#3

Bonjour,

personnellement, je n'aime pas lier une page à un navigateur, donc en
général je laisse le système utiliser son navigateur par défaut.

sous windows, teste ceci :

dim Monretour as variant
Monretour=shell("cmd /c start",2,"
https://www.gouvernement.fr/info-coronavirus")

ça marche aussi pour des fichiers texte par exemple :wink:
Yves

#4

Merci Yves et Claude

Vos deux solutions me conviennent parfaitement

Juste une remarque chez moi le paramétre 10 ou 2 ouvre un onglet en plein écran

Cordialement

#5

Le paramètre 2, c'est pour ouvrir une fenêtre 'par dessus' l'actuelle (le
fait que ta fenêtre soit en plein écran, c'est probablement parce que la
dernière fois que tu as utilisé le programme il était en plein écran...)

fait un test en réduisant la fenêtre - referme ensuite le progamme et
relance ta macro pour confirmer ?

Yves.

#6

Bonjour Yves

Oui dans mon cas j'ai paramétré Firefox pour ouvrir des onglets en plein écran

Jean-Luc