Excel VBA : perte du separateur decimal

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 28 oct. 2013 à 16:25
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 28 oct. 2013 à 17:02
Bonjour,

J'ai fait une macro qui importe un fichier ".txt" en vue du traitement de son contenu.
Mon problème se situe lors de l'import par la macro, en effet pour un chiffre de la forme 1.001 dans le fichier ".txt", le point est éliminé lors de l'importation sous Excel et le nombre se retrouve sous la forme 1001. Ce qui ne m'arrange pas du tout.

J'ai effectué la même manipulation en le faisant manuellement et la, j'ai bien 1.001.

Voici le code de l'importation, le fichier est au format UTF8, séparé par des tabulations et le séparateur de décimal est bien noté comme étant le " . ". La valeur en question se trouve dans la colonne 11

Workbooks.OpenText Filename:=wkcurrent, Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 4), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

Voila, j'ai beau cherché, je ne vois plus. Si vous avez une idée, elle est la bienvenue :)
Merci d'avance
A voir également:

1 réponse

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
28 oct. 2013 à 17:02
Voila, Problème résolu, au final, cela venait de cette instruction qui était exécutée juste après l'importation :

    ' Remplacement des points par des virgules
Columns("K:L").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Je l'ai commenté, tout fonctionne comme il faut.
0