Mapping du point du pavé numérique (par macro)

[phpame]

Bonjour,
Je souhaiterais pouvoir modifier le mapping du point sur le pavé numérique et obtenir soit le point “.”, soit la virgule “,”
Pas de pb pour faire cela interactivement (menu “Outils/Options/Paramètres linguistiques/Langue/Touche séparateur décimal”).
Mais comment le faire par macro ? (code VB).
Merci d’avance.

[PYS]

Bonjour @phpame

sub ToDecimalOn
	PysDecimal(true)
end sub

sub ToDecimalOff
	PysDecimal(false)
end sub

sub PysDecimal(bOuiNon as boolean)

dim kc as object

globalScope.basicLibraries.loadLibrary("Tools")

kc = getRegistryKeyContent("/org.openoffice.Setup/L10N", true)

kc.DecimalSeparatorAsLocale = bOuiNon
kc.commitChanges()

end sub

Cordialement

[phpame]

Bonjour @PYS,
C’est parfait.
Super, c’est exactement ce dont j’avais besoin.
Merci beaucoup.

PS : je suis nouveau sur le Forum et je ne trouve pas comment mettre le sujet en “Résolu” … je dois l’avoir sous le nez … mais cela m’échappe => si quelqu’un peut éclairer ma lanterne, merci.
Oops … c’était bien sous mon nez et j’ai trouvé