need help with saving a sheet to a new workbook csv

Occasional Contributor

i found this code 


nomFichier = ActiveWorkbook.Path & "\" & "_" & & Format(Now, "_yyyymmdd")

'ActiveWorkbook.SaveAs nomFichier
Application.DisplayAlerts = False
wbNew.SaveAs nomFichier & ".csv", xlCSVUTF8 'new way

Application.DisplayAlerts = True


it almost does what i need (i mean it grabs my sheet and saves it into csv format 

but for some reason it also renames my sheet in my current workbook and i do not want that


all i need it to do is to grab my sheet and save it to a new workbook in CSV format utf-8


thank you for any help

4 Replies


    nomFichier = ActiveWorkbook.Path & "\" & "_" & ActiveSheet.Name & Format(Now, "_yyyymmdd")
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs nomFichier & ".csv", xlCSVUTF8
    ActiveWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
will that just close my workbook ?
best response confirmed by Slyfox6915 (Occasional Contributor)



It copies the active sheet to a new workbook.This new workbook is now the active workbook.

This will be saved as a .csv file and then closed. You are left with the original, unchanged workbook.

Thank you so much