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
Le 08/06/2020 à 19:12, linux a écrit :
Dim IE  As Object
 IE = CreateObject("InternetExplorer.Application.1")
  IE.Visible = 1
  IE.Navigate( "https://www.gouvernement.fr/info-coronavirus") 
-- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus -- Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Privacy Policy: https://www.documentfoundation.org/privacy