Sub saveas()
Workbooks.Open Filename:= _
"C:\Users\NICOLAS\Desktop\Bd\A.xlsx"
ActiveWorkbook.RefreshAll
Application.DisplayAlerts = False
ActiveWorkbook.saveas "C:\Users\NICOLAS\Desktop\Bd\A", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
End Sub