Discussion :

[Looping_V60]

slt,
Comme indiqué dans l'intitulé je voudrais modifier les paramètres régionaux et les folders options.

Pour les paramètres régionaux j'ai trouvé cet article dans la FAQ , qui permet de "récupérer" les paramètres régionaux mais pas de les modifier je pense.

Comment faire ?

Même question pour les folders options

En clair je voudrais remplacer la virgule du séparateur de milliers par le point
Je voudrais aussi supprimer l'option "Afficher les fichiers cachés" du folder options de Windows.

[LedZeppII]

Bonjour,

Pour le séparateur décimal voici un petit exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const LOCALE_SDECIMAL               As Long = &HE          ' séparateur décimal
Const LOCALE_STHOUSAND              As Long = &HF          ' Séparateur Milliers

Const LOCALE_SMONDECIMALSEP         As Long = &H16         ' Séparateur decimal monétaire
Const LOCALE_SMONTHOUSANDSEP        As Long = &H17         ' Séparateur Milliers monétaire

' Déclarations fonction API
Private Declare Function SetLocaleInfo Lib "kernel32.dll" Alias "SetLocaleInfoA" _
  (ByVal Lcl As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

Sub testSetLocal()
Dim RetVal As Long, LocaleID As Long

 LocaleID = GetUserDefaultLCID()

 RetVal = SetLocaleInfo(LocaleID, LOCALE_SDECIMAL, "," & vbNullChar)
 RetVal = SetLocaleInfo(LocaleID, LOCALE_SMONDECIMALSEP, "," & vbNullChar)

End Sub

Mais je ne sais pas ci c'est une bonne idée de changer ce paramètre à l'insu de l'utilisateur.
Cela affecte toutes les applis Windows.

Bon courage