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 = 1IE.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