Bonjour Bernard,
Sorry for answering so late.
It was so difficult to connect to this server a few months ago, I stopped
making a habit of it.
If you want to get rid of your "virgule", this could be a solution.
Denis
'----------------------------
Private Declare Function GetUserDefaultLCID _
Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias _
"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias _
"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String) As Long
Public Const LOCALE_SDECIMAL = &HE
Public Sub main()
Dim locId As Long
Dim decSep As String * 255
locId = GetUserDefaultLCID
GetLocaleInfo locId, LOCALE_SDECIMAL, decSep, 255
If Left(decSep, 1) = "," Then
If MsgBox("Voulez-vous changer le séparateur décimal " _
& vbCrLf & " (la Virgule sera remplacée par un Point)?", _
vbQuestion + vbYesNo, "Paramètres Régionaux") = vbYes Then
If SetLocaleInfo(locId, LOCALE_SDECIMAL, ".") Then _
MsgBox "Opération Complétée ", vbInformation
End If
End If
'------------------------------------------------
"Bernard Flavignard" a écrit dans le message news:
17BE43F38AA70E2BAA65E4E7D574577E@in.WebX.SaUCah8kaAW...
> Bonjour,
>
> With VBA, but i think it is the same with VB, how can i force Windows NT4
to
> use the decimal point "." and not the "," for the reals numbers.
>
> I think it is with an API, but...
>
> Bernard
>
