Discussion :

[x-crabe]

Bonjour à tous,

Je dois faire un application multilingue et pour cela je voudrais récupérer la langue principale de l'utilisateur.

Pour cela j'utilise un code proposé dans un livre (VBA pour excel 2010 de chez microapp)

Code :

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

1
2
3
4
5
 
Dim objLangSet As Application
 
Set objLangSet = Application.LanguageSettings
msg = MsgBox(objLangSet.LanguageID(msoLanguageIDInstall), vbOKOnly, "langue utilisée")

Malheureusement la variable objLagSet reste invariablement avec la valeur "Nothing" et ma msgbox ne s'affiche pas

Comment puis-je faire ai-je une autre alternative pour récupérer la valeur de cette variable

[amnorian]

marrant moi ca fonctionne

par contre il faut que tu retire ton objlangset en object car avec application ca bug

et en 1 ligne

Code :

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

MsgBox (Application.LanguageSettings.LanguageID(msoLanguageIDUI))

le 1036 correspond au francais. Je ne sais pas pour les autres

[pgz]

Bonjour.

ObjLangSet est bien un objet et son type précis est Office.LanguageSettings.
Avec ton code tu devrais obtenir une constante msoLanguageID (tu peux consulter cette énumération)
Par exemple :

• msoLanguageIDFrench = 1036
• msoLanguageIDBelgianFrench = 2060

Cordialement,

PGZ