Connaître le langage choisi dans les "Options régionales et linguistiques"

Résolu
cs_garat
Messages postés
32
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
19 janvier 2011
- 1 août 2004 à 14:02
cs_garat
Messages postés
32
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
19 janvier 2011
- 16 août 2004 à 17:44
Bonjour tout le monde,

Je développe sous Excel des macros VBA.

J'aimerai pouvoir afficher les textes de mes différentes fenêtres dans le même langage que celui choisi par l'utilisateur.

Qu'elle est la fonction qui pourrait me renvoyer cette information ?

Merci

Garat

2 réponses

cs_garat
Messages postés
32
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
19 janvier 2011

16 août 2004 à 17:44
Merci
3
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
2 août 2004 à 00:46
Bonjour

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
'--------------------
Public Function GetInfo(ByVal lInfo As Long) As String
    Dim Buffer As String, Ret As String
    Buffer = String$(256, 0)
    Ret = GetLocaleInfo(&H400, lInfo, Buffer, Len(Buffer))
    If Ret > 0 Then
        GetInfo = Left$(Buffer, Ret - 1)
    Else
        GetInfo = ""
    End If
End Function
'--------------------------
Sub langue()
    MsgBox "Langage choisi dans les Options régionales et linguistiques : " & GetInfo(4), vbInformation
End Sub
0