Problème de séparateur décimal

[KIM]

Bonjour les ami(e)s, & le Forum,
Je récupère des fichiers excel générés par un outil externe avec comme séparateur décimal le point ".".
Le séparateur décimal défini au niveau du système XP est la virgule ",".
Dans les options d'excel onglet "International" , j'ai coché "Utiliser les séparateurs système

Si j'ouvre ce fichier excel, il ne reconnait pas les nombres et les cellules deviennent du texte. Il faut que je change le "." en virgule "," .
Par contre, avant d'ouvrir ce fichier excel, je modifie le séparateur décimal dans excel c-à-d :
- je décoche "Utiliser les séparateurs système"
- je déclare le point "." comme séparateur décimal
et j'ouvre mon fichier excel. Là il reconnait le séparateur décimal et les cellules deviennent des nombres.

- Si je coche de nouveau "Utiliser les séparateurs système" dans les options d'excel, le point "." devient virgule dans les cellules.

Si par mégarde j'ouvre le fichier excel avant de positionner le séparateur décimal, la logique ci-dessus ne fonctionne plus.

J'ai beaucoup de plans que je récupère dans un seul fichier excel par vba. Est-il possible de modifier les options d'excel par vba selon la logique ci-dessous :
Au lancement du code et avant la lecture des fichiers excel faire:
- décocher "Utiliser les séparateurs système"
- déclarer le point "." comme séparateur décimal
- importer les fichiers dans le classeur courant
- sauvegarder le fichier lu et le classeur courant
- et après remettre les options d'excel d'origine : Cocher "Utiliser les séparateurs système"

Votre code sera intégré avant même la lecture de ces fichiers excel.

Merci de votre aide
KIM

 

[Pierrot93]

Re : Problème de séparateur décimal

Bonjour,

petite remarque au passage, le mieux ne serait-il pas d'agir lors de l'importation de ses fichiers ???

Bon après midi
@+

 

[KIM]

Re : Problème de séparateur décimal

Bonjour Pierot93, & le forum
J'ai testé manuellement en copiant la feuille du fichier source dans un nouveau classeur et en remplaçant le "." par une ",", cela fonctionne.
As-tu un code pour tester?

Merci d'avance
KIM

 

[JCGL]

Re : Problème de séparateur décimal

Bonjour à tous,
Salut Pierrot,
Salut Kim,

Peux-tu essayer avec :

Option Explicit

Sub Remplace()
    ActiveSheet.Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart
End Sub

A+ à tous

 

[KIM]

Re : Problème de séparateur décimal

Bonjour JCGL, Pierrot93 et le forum,
@JCGL, merci por ta réponse. Je l'ai testée. Manuellement la conversion se fait correctement et les cellules deviennent des nombres que je peux traiter. Par contre si lance la macro, le contenu des cellules deviennent du texte impossible de les traiter. voir fichier ci-joint.

merci d'avance
KIM

 

[JCGL]

Re : Problème de séparateur décimal

Bonjour à tous,

Quel est ton séparateur décimal, le point ou la virgule ?

A+ à tous

 

[KIM]

Re : Problème de séparateur décimal

Re-Bonjour à tous,
@JCGL,
Mon séparateur décimal est la virgule.
Merci
KIM

 

[JCGL]

Re : Problème de séparateur décimal

Bonjour à tous,

Je viens de passer un séparateur VIRGULE, j'ai lancé le code et les formats apparaissent bien en " m2" donc c'est bien un format nombre...

A+ à tous

 

[KIM]

Re : Problème de séparateur décimal

Re, à tous,
Désolé JCGL, je ne comprends plus, ci-joint le fichier résultat après exécution de la macro. le fichier source est toujours source1.xls.
merci d'avance
KIM

 

[JCGL]

Re : Problème de séparateur décimal

Bonjour à tous,

Peux-tu rajouter cette ligne avant le End Sub :

Worksheets("Feuil1").UsedRange.Columns("A:Z").Calculate

A+ à tous

 

[KIM]

Re : Problème de séparateur décimal

Re, à tous,
Désolé JCGL, j'ai mis à jour la macro. même chez moi avec Excel 2003 j'ai le même résultat. Manuellement c'est bon mais pas avec la macro. Je ne comprends plus.
KIM

 

[JCGL]

Re : Problème de séparateur décimal

Bonjour à tous,

Sur ce coup là, je ne comprends plus...
C'est OK pour moi sous XL 2003...

Désolé l'ami
A+ à tous

 

[KIM]

Re : Problème de séparateur décimal

Bonsoir à tous,
@JCGL
Merci Quand même d'avoir essayé de m'aider. Je vais continuer les tests. Je reviens vers ce fil si je trouve une explication.
Bonne soirée à vous tou(te)s
KIM

 

[Pierrot93]

Re : Problème de séparateur décimal

Bonjour Kim,
Bonjour Jean-Claude

Je récupère des fichiers excel générés par un outil externe avec comme séparateur décimal le point ".".

ton outil, génère directement un xls ou bien un csv ? comment tu importes tes données ? Une macro, un copier / coller ?

bonne journée
@+

 

[KIM]

Re : Problème de séparateur décimal

Bonjour à tou(te)s,
@Pierrot93,
L'outil génère un xls avec un point comme séparateur décimal. Je ne peux pas modifier cet export. J'en ai presque 1500 xls que j'importe via une macro (merci le forum). C'est pour cela je suis à la recherche d'un code vba pour, à l'import de chaque fichier, il me trasnforme le "." en virgule pour que certaines colonnes deviennent du numérique à traiter.
Merci d'avance
KIM