XL 2010 VBA - paramétrer format décimale à l'ouverture

[kan3pz]

Bonjour à tous,
Je sollicite de nouveau votre aide car j'ai de temps en temps besoin de travailler avec le "." comme séparateur de décimales au lieu de la virgule. Mais j'ai un fichier qui doit obligatoirement être géré avec la virgule comme séparateur.
Existe-t-il une macro pour activer se paramètre à l'ouverture du fichier pour mon classeur complet.
Merci d'avance.

 

[Lone-wolf]

Bonjour kan

Pas besoin de macro. Vas dans options > options avanceés > décoche "utiliser séparateur système" et apporte les modifications. Sinon (si tu as une macro) un exemple à adapter.

Cells(lig, col) = Replace(Cells(lig, col), ",", ".")

 

[kan3pz]

Bonjour Lone-wolf, merci pour ce début de réponse
Je souhaitais éviter de faire cette manip à chaque ouverture du fichier que je souhaitais avoir une macro.
Pour compléter : mon fichier en question est une BDD qui me sert à générer des fichiers plats à intégrer dans un logiciel qui n'acceptent pas les points comme séparateurs de décimales. Je voulais donc savoir si il était possible d'automatiser la modification des paramètres à l'ouverture du fichier.
Ok pour la seconde solution mais je la trouve moins "propre"...

 

[JCGL]

Bonjour à tous,

Tu mets ceci dans le Module ThisWorkBook :

Private Sub Workbook_Open()
With Application
        .DecimalSeparator = ","
        .UseSystemSeparators = False
    End With
End Sub

Tu fais l'inverse dans le module BeforeClose ou BeforeSave.

A+ à tous

 

[kan3pz]

Bonjour,
merci beaucoup ça marche au top !