remplacer un point par une virgule

  • Initiateur de la discussion Initiateur de la discussion Jlou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jlou

XLDnaute Nouveau
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,
 

Pièces jointes

Re : remplacer un point par une virgule

Bonjour
Essayez en ajoutant le paramètre nommé DecimalSeparator:="."
VB:
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
 
Dernière édition:
Re : remplacer un point par une virgule

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


@ + +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
821
Réponses
22
Affichages
3 K
Réponses
2
Affichages
1 K
Retour