Je pense avoir la solution:
Private Declare Function GetProfileString Lib "kernel32.dll" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Private Sub Form_Load() Dim sSeparateur As String Dim lLongueur As Long sSeparateur = Space(255) lLongueur = GetProfileString("intl", "sDecimal", ".", sSeparateur, 255) sSeparateur = Left(sSeparateur, lLongueur) End Sub
Voilà, j'espère que c'est ce que tu recherchais
à+, Clm
|