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 à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
