Convertir en valeur numérique

[Troudz]

Bonjour,

J'intègre automatiquement dans mon classeur des données issues de fichiers CSV à l'aide d'une macro.

Mon soucis est que ces fichiers CSV utilisent parfois le point comme séparateur de décimales en lieu et place de la virgule. Du coup Vba considère ces données comme du texte. J'ai essayé de les convertir à l'aide de fonction comme CDbl mais ça ne passe pas.

Qui saurait me dire ce que je peux utiliser ?

En vous remerciant par avance,

Bonne journée à tous.

 

[Pierrot93]

Re : Convertir en valeur numérique

Bonjour,

regarde peut être ceci, en utilisant la conversion de colonne :

Columns(1).TextToColumns Destination:=Range("A1"), DecimalSeparator:="."

mais le point est toujours le séparateur décimale.

bonne journée
@+

 

[Troudz]

Re : Convertir en valeur numérique

Bonjour et merci pour ta réponse rapide Pierrot

Cela semble fonctionner parfaitement. Les points sont bien remplacés par des virgules.

Par contre je viens de constater une autre soucis.
Les dates sont stockées en toutes lettres dans mon fichier CSV : "janvier 2013", "fevrier 2013", aout 2013 etc...

Lors de l'ouverture, Excel les converties automatiquement au format jj/mm/aaaa ce qui me convient parfaitement.
Par contre pour toutes les mois qui devrait normalement être écrit avec un accent (février, août et décembre), Excel ne les reconnait pas et les laisse en toute lettres.... Comment pourrais je solutionner ce problème ?

 

[Pierrot93]

Re : Convertir en valeur numérique

Re,

regarde peut être du coté de la fonction "replace" et faire une conversion ensuite...