Macro VBA sous Ooo

Bonjour,

Je cherche la bonne syntaxe pour cette marco faite ne VBA, mais pour LibreOffice Calc.

Private Sub CmdBtnScc_Click()
Dim a
a = Shell("C:\windows\explorer.exe R:\DITX-EC\SVPBURO_SCC", vbNormalFocus)
End Sub

Merci

Bonjour,

voici la solution

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
Rechercher des sujets similaires à "macro vba ooo"