Excel VBA : perte du separateur decimal

Résolu
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -  
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   20
 
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