Discussion :

[FlorianBreizh]

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 :

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

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

[wilfried_42]

Bonjour

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

@ te lire

[FlorianBreizh]

Salut,

Voici un morceau du fichier txt.

Merci

[Bevan]

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 :

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

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

[FlorianBreizh]

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.