Didier Dorange-Pattoret a écrit :
Bonjour,
Voici une macro qui lance une page spécifique :
Sub Join_dmaths
On error resume next
Dim sUrl as String
Dim sys As Object
Dim iFlags As Integer
sUrl=ConvertToURL("http://www.dmaths.org";)
sys = CreateUnoService("com.sun.star.system.SystemShellExecute")
iFlags =
com.sun.star.system.SystemShellExecuteFlags.NO_SYSTEM_ERROR_MESSAGE ' = 0
sys.execute(sUrl," ", iFlags)
End Sub
Cela vous convient-il ?
Tu peux aussi regarder mon fichier COOojugaison.sxc il yu a la même
chose avec le décryptage des caractères spéciaux.
--
Amicalement vOOotre Troumad Alias Bernard SIAUD
mon site : http://troumad.info : AD&D maths WEB sectes
Pour la liberté http://lea-linux.org http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme
http://fr.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
