Macro Remplacer automatiquement

Bonjour à tous,

Je dois traiter des signaux expérimentaux (près de 600 courbes) à l'aide d'Excel et je cherche à automatiser un maximum de manipulations.

Le séparateur des décimales est par défaut un point sur le fichier texte que j'importe et je souhaite le remplacer par une virgule. Je cherche à réaliser une macro qui me remplace la commande "Edition/Remplacer tout".

J'ai essayé en mode enregistrement de macro mais le code bug.

Auriez-vous une solution? Merci d'avance.

PS : Mon séparateur doit obligatoirement être une virgule pour un traitement avec un logiciel après; donc inutile de me demander de modifier les préférences d'excel (outils/option/international...),

Mon code :

Code:

---

1 2	Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Bonjour

tu pourrais fournir une exemple de fichier text, pas tre gros, 3 ou 4 ligne pour voir.

@ te lire

Salut,

Voici un morceau du fichier txt.

Merci

Bonjour, sans modifier les paramètres d'Excel, tu peux modifier le séprateur décimal à l'import. Il me semble que ça doit répondre à ta question :

Code:

---

1 2 3 4 5 6

Workbooks.OpenText Filename:= _ "C:\Documents and Settings\Bevan\Bureau\test.txt", Origin:=xlWindows, _ 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)), DecimalSeparator:=".", TrailingMinusNumbers:=True

---

Salut,

Effectivement, je n'avais pas pensé à cette solution. C'est probablement la plus simple.

Je trouve tout de même bizarre que la commande que j'ai posté à l'origine ne marche pas bien.

En tout cas, merci de ton aide. Bonne journée.