modifier les paramètres regionaux

[albert]

bonsoir à tous, bonsoir forum
je veux demander à l'utilisateur de changer la virgule en point
si les paramètres sont une vigule...

J'écris :

Sub Params()
If Application.International(xlDecimalSeparator) = "." Then
Sheets("Feuil1").Activate
Else

MsgBox Application.International(xlDecimalSeparator)
MsgBox "Changer les paramètres régionaux de , en . ", vbOKOnly
End If
End Sub

...mais je n'arrive pas à supprimer ou à modifier le texte du premier message..

quelqu'un peut il m'aider ???

merci d'avance
albert

 

[Le rital]

Bonsoir,

Teste les deux fichiers joints (j'envois en deux fois)

Fichier à mettre au même endroit

Cordialement

Le rital

 

[Le rital]

2 fichier

 

[albert]

Merci,Rital,
J’avais essayé la macro complémentaire de laurent…l’application des données sélectionnées dans la boite de dialogue bogue chez moi et l’exécutable ne marche pas : « exécution ininterrompue »)
http://longre.free.fr/downloads/Paramreg.zip
c’est pourquoi j’ai essayé MsgBox Application.International(xlDecimalSeparator)
…il faut que je trouve un moyen de mettre un message informatif

à +
albert

 

[albert]

J'ai trouvé
MsgBox Application.International(xlDecimalSeparator) = "."

donne un message vrai ou faux