[prog] Changer la langue locale

[Didier Dorange-Pattoret]

Bonjour,

Je voudrais changer la langue locale d'un compte utilisateur OOo.
J'ai essayé la macro, mais sans succès :


Sub Main
oConfigAccess = GetConfigAccess( "/org.openoffice.Setup/L10N", True )
oConfigAccess.ooLocale = "de"
oConfigAccess.commitChanges()
End Sub


Function GetConfigAccess( ByVal cNodePath As String,ByVal bWriteAccess 
As Boolean,Optional bEnableSync,Optional bLazyWrite) As Object
   If IsMissing(bEnableSync) Then     bEnableSync = True
   If IsMissing( bLazyWrite ) Then bLazyWrite = False
   Dim oConfigProvider, oConfigAccess as Object
   oConfigProvider = 
GetProcessServiceManager.createInstanceWithArguments("com.sun.star.configuration.ConfigurationProvider",Array( 
MakePropertyValue( "enableasync", bEnableSync)))
   If bWriteAccess Then
       cServiceName = 
"com.sun.star.configuration.ConfigurationUpdateAccess"
   Else
       cServiceName = "com.sun.star.configuration.ConfigurationAccess"
   EndIf
   oConfigAccess = oConfigProvider.createInstanceWithArguments( 
cServiceName, Array( MakePropertyValue( "nodepath", cNodePath ), 
MakePropertyValue( "lazywrite", bLazyWrite )))
   GetConfigAccess() = oConfigAccess
End Function

Didier Dorange-Pattoret
www.dmaths.org

Cordialement.