Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer sous text avec séparateur virgule

souhail72

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

Code:
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
 

souhail72

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

Discussions similaires

Réponses
2
Affichages
476
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…