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