Discussion :

[benito32]

Bonjour,

J'ai lu pas mal de message sur le forum sur ce problème, mais je n'ai rien trouvé solutionant mon problème.
Je récupère des fichiers de cours de bourse en version US (donc avec des points) et j'essaie de transformer les valeurs avec des points en valeur avec virgules (et de leur donner un format "nombre") afin de pouvoir les exploiter.

Comme vous pouvez-voir dans ma macro, ce changement ce fait bien sur le premier onglet (à part l'histoire du format), mais que partiellement sur le second... d'ou vient l'erreur?

Merci

[parmi]

Bonjour,

Je n'ouvre pas les fichiers avec macros...
Je ne sais donc pas comment tu ouvres ces CSV.
En utilisant un DataObject, ça pourrait éventuellement régler ton problème.

[Invité]

activesheet.usedrange=activesheet.usedrange.value

[Marc-L]

Bonjour,

de toute manière, la conversion est directement effectuée en utilisant l'une des fonctionnalités d'Excel d'importation !
Y a même des assistants, suffit juste de spécifier le séparateur décimal …
Sans compter les nombreux exemples dans les discussions de ce forum !


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[benito32]

Je vous remercie pour votre rapidité ! et finalement le commentaire de Marc L m'a permis de trouver la solution a mon problème.
Plutot que d'essayer par une macro de reformater les données, j'ai modifié la macro d'importation. Je ne savais pas que l'on pouvait differencier les formats des colonnes lors de l'importation.

Pour les intéressés et incultes comme moi, voici le code pour trier le .csv (rajout du FieldInfo) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            Sheets(Titres).Range("a1").CurrentRegion.TextToColumns Destination:=Sheets(Titres).Range("a1"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                Semicolon:=False, Comma:=True, Space:=False, other:=False, FieldInfo _
                :=Array(Array(1, 5), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
                Array(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True