remplacer un point par une virgule

[Jlou]

Bonjour amis Excelliens,

Est-ce que l'un d'entre vous pourrez m'aider s'il vous plait.

Lorsque j'exporte un fichier.txt dans excel, celui-ci s'exporte avec un point au lieu d'une virgule.

A la main, le remplacer par fonctionne, mais lorsque je l'intègre dans une macro, cela ne fonctionne pas.

Vous trouverez en PJ, le fichier importé, et

Voici la macro en question

Sub Macro3()
'
Workbooks.OpenText Filename:="N:\Gestion_du_personnel2\export\général.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, OtherChar:="|", FieldInfo:= _
Array(1, 1), TrailingMinusNumbers:=True
Range("C4").Select
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
End Sub


Merci de votre aide,

Cdlt,

 

[Dranreb]

Re : remplacer un point par une virgule

Bonjour
Essayez en ajoutant le paramètre nommé DecimalSeparator:="."

Sub Macro3()
Workbooks.OpenText Filename:="N:\Gestion_du_personnel2\export\général.txt", _
   Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _
   Space:=False, Other:=False, OtherChar:="|", FieldInfo:=Array(1, 1), _
   TrailingMinusNumbers:=True, DecimalSeparator:="."
End Sub

 

[Jlou]

Re : remplacer un point par une virgule

Merci beaucoup Dranreb, ça fonctionne, je n'ai donc plus besoin de remplacer les points par les virgules.

Super, merci encore.

 

[R@chid]

Re : remplacer un point par une virgule

Bonjour @ tous,
Salut Dranreb
on peut le faire pendant l'importation.
voir image.



@ + +