Quelle est la langue du PC

bonjour,

extrait de l'aide de VBA

Renvoie des informations sur les paramètres de langue utilisés dans une
application Microsoft Office.

Utilisation de l'objet LanguageSettings

Utilisez Application.LanguageSettings.LanguageID(MsoAppLanguageID), où
MsoAppLanguageID est l'une des constantes suivantes utilisées pour renvoyer
les informations relatives au LCID (identificateur des paramètres régionaux)
vers l'application spécifiée : msoLanguageIDExeMode, msoLanguageIDHelp,
msoLanguageIDInstall, msoLanguageIDUI ou msoLanguageIDUIPrevious. Cet exemple
montre comment renvoyer dans un message la langue du programme d'installation
et de l'interface utilisateur, ainsi que les LCID de l'aide.


MsgBox "The following locale IDs are registered " & _
"for this application: Install Language - " & _
Application.LanguageSettings.LanguageID(msoLanguageIDInstall) & _
" User Interface Language - " & _
Application.LanguageSettings.LanguageID(msoLanguageIDUI) & _
" Help Language - " & _
Application.LanguageSettings.LanguageID(msoLanguageIDHelp)
Utilisez Application.LanguageSettings.LanguagePreferredForEditing pour
déterminer quels sont les LCID inscrits comme langues d'édition préférées
pour l'application, comme le montre l'exemple suivant.

et rechercher dans les constantes de msolanguageid à quoi ca correspond

a+

Bonjour,

Comment peut-on déterminer en VBA la langue du PC ?

Merci pour votre aide.

--
Patrick

Bonjour,

Un petit coup d'API:

Version 1.

Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country
Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language
Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language
Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country
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 Sub DisMoiQuelleLangue()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
MsgBox "You live in " _
& GetInfo(LOCALE_SENGCOUNTRY) _
& " (" & GetInfo(LOCALE_SNATIVECTRYNAME) & ")," _
& vbCrLf & "and you speak " & _
GetInfo(LOCALE_SENGLANGUAGE) & _
" (" & GetInfo(LOCALE_SNATIVELANGNAME) & ").", vbInformation
End Sub
Public Function GetInfo(ByVal lInfo As Long) As String
Dim Buffer As String, Ret As String
Buffer = String$(256, 0)
Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
If Ret > 0 Then
GetInfo = Left$(Buffer, Ret - 1)
Else
GetInfo = ""
End If
End Function





"Patrick Fredin" <nospam_patrick.fredin@iquebec.com> a écrit dans le message
de news:A41CB603-99E3-471D-9A2C-6ED1869FD1A5@microsoft.com...

Bonjour,

Comment peut-on déterminer en VBA la langue du PC ?

Merci pour votre aide.

--
Patrick