Enregistrer sous text avec séparateur virgule

[souhail72]

Bonjour la roume

Je fais un traitement avec une macro et a la fin j'enregistre sous format text avec comme séparateur ; sauf que le résultat j'ai une virgule.

Application.Goto Reference:="Traitement_Concat"
    Range("A1:Q6868").Select
    Range("B6570").Activate
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ChDir "C:\Users\psei09701\Desktop\TEST"
    Workbooks(NomFichierBaseInstallations).Worksheets(1).Activate
    
        fileSaveName = Application.GetSaveAsFilename( _
            "", fileFilter:="Text Files (*.txt), *.txt")
        If fileSaveName <> False Then
            Worksheets(1).SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
            
        End If
               
     
    ActiveWorkbook.Close

Avez vous une idée svp, je m'arrache les cheveux .. merci à vous

 

[Pierrot93]

Re : Enregistrer sous text avec séparateur virgule

Bonjour,

question déjà posée ici :
https://www.excel-downloads.com/threads/changer-virgule-en-point-virgule.20002060/

préférable de remonter le fil déjà existant si pas de réponse... ou si elle ne convient pas...

bon après midi
@+

 

[souhail72]

Re : Enregistrer sous text avec séparateur virgule

désolé d'avoir posté, mais j'ai toujours pas la solution ..

 

[souhail72]

Re : Enregistrer sous text avec séparateur virgule

Bonjour
Solution trouvé, pour mettre le point virgule, il faudrait mettre cette ligne, ne pas enregistrer le classeur et le mettre a faux.

ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

merci à vous