Problème sur la fonction replace sur nombres > 1

Bonjour à tous,

J'importe un fichier au format *.txt en VBA avec la méthode OpenText.
Il s'agit d'un tableau de données (au format 0.0000).

Après l'import, je remplace les "." par des "," dans le nouveau Workbook, avec la méthode Replace.
Les nombres décimaux inférieurs à 1 sont bien reconnus comme tels (positifs comme négatifs). Pas besoin de les convertir en nombre.
Mais les nombres supérieurs à 1, tels que 9.2000 se retrouvent convertis en 92 000 (avec séparateur de milliers). Et la virgule a disparu...

Je pense qu'il doit y avoir un argument quelque part qui déconne mais où ???

La méthode OpenText :

Code:

---

1 2 3 4 5 6 7

Workbooks.OpenText Filename:= _ XXX, _ Origin:=xlMSDOS, 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)), TrailingMinusNumbers:=True

---

La méthode replace :

Code:

---

1 2 3 4

Donnees.Sheets(NomFichier).Columns("C:E").Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Merci pour votre aide

Salut,
Renseignes aussi SearchOrder

Code:

---

Range("C1:E9").Replace ".", ",", xlPart, xlByRows, False

---

Merci pour la réponse Valtrase.
Searchorder est déjà renseigné dans la méthode Replace mais pas sous le même format que ce que tu proposes.
J'ai donc remplacé ma formule par la tienne mais ça ne change rien.

J'ai par exemple ça dans le fichier txt brut :
9.2000 9.1629 -0.0371 (valeurs réparties sur 3 colonnes).

Et je récupères ça :
92 000 91 629 -0,0371

Je n'ai pas encore basculé le format de cellule en nombre (je l'avais fait mais ça ne changeait rien).
Ce qui est étonnant est que, pour les chiffres <1 , Excel me met la petite alerte en me proposant de le convertir en nombre car il reconnait le nombre au format texte.
Mais il ne le propose pas pour les nombres > 1, il ne les reconnait donc pas comme tels.

Bonjour,

ce n'est pas l'import qui convertit automatiquement, avant le replace ?

Sur les nombres > 1 ex. 2.500 il comprend 2 500 et convertit, sur 0.500 il ne comprend pas et laisse en texte. Puis le replace ne fait rien sur les premiers puisqu'il n'y a plus de point, et agit seulement sur les seconds.

Re,

Le problème n'était pas dans le Replace mais dans le OpenText. Les arguments n'étaient pas les bons.

Maintenant ça marche (et plus besoin du replace puisque l'import reconnaît le "." comme séparateur de décimal et convertit automatiquement en ",").
En indiquant donc le DecimalSeparator, ça passe.

Les arguments sont donc :

Code:

---

1 2 3 4 5 6 7

Workbooks.OpenText Filename:= _ XXX, _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma _ :=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2 _ , 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

---

au lieu de

Code:

---

1 2 3 4 5 6 7

Workbooks.OpenText Filename:= _ XXX, _ Origin:=xlMSDOS, 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)), TrailingMinusNumbers:=True

---

Citation:

---

Envoyé par Tête de chat

Bonjour,

ce n'est pas l'import qui convertit automatiquement, avant le replace ?

Sur les nombres > 1 ex. 2.500 il comprend 2 500 et convertit, sur 0.500 il ne comprend pas et laisse en texte. Puis le replace ne fait rien sur les premiers puisqu'il n'y a plus de point, et agit seulement sur les seconds.

---

Exactement ! Je faisais un import sans avoir défini le DecimalSeparator. Il me prenait donc le point comme un ThousandsSeparator dans ce cas-là.

Et ça marche tout de suite mieux :-)