Parametres regionaux

M

MichelXld

XLDnaute Barbatruc

• 6 Février 2006

• #2

bonjour

tu peux tester

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



bonne journée
MichelXld

 

Vote positif 0 Vote négatif

P

pobrouwers

XLDnaute Occasionnel

• 6 Février 2006

• #3

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 6 Février 2006

• #4

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

 

Vote positif 0 Vote négatif