Sub ouvrirExplorateurWindows()
Dim oShell As Object
oShell = createUnoService("com.sun.star.system.SystemShellExecute")
'La procédure renvoie un message d'erreur si le répertoire n'existe pas
oShell.execute(ConvertToUrl("C:\Documents and Settings\michel\dossier"), "", 0)
End Sub