Parametres regionaux

[pobrouwers]

Bonjour,

Quelqu'un sait-il comment récupérer dans une variable les parametres régionaux windows de l'utilisateur.
Exemple : la devise est-elle est euro ou fr ou BF, ect.

Merci

 

[MichelXld]

bonjour

tu peux tester

Dim x As String
x = Application.International(xlCurrencyCode)
MsgBox x



bonne journée
MichelXld

 

[pobrouwers]

Encore une fois merci, MichelXLD.
C'est ca que je voulais
Par hazard, tu ne sais pas s'il y a moyen de mettre un lien hypertext dans un msgbox ?
J'abuse peut-etre la

 

[MichelXld]

rebonjour

j'espere que ce type de procedure pourra t'aider

Dim Reponse As String
Reponse = MsgBox('Voulez vous lancer le lien hypertexte ?', vbYesNo, 'Message')
If Reponse = vbYes Then _
ThisWorkbook.FollowHyperlink 'http://www.excel-downloads.com', , True


bonne soirée
MichelXld

Message édité par: michelxld, à: 06/02/2006 16:54