Sub export_Suivis_Stocks()
Dim chemin$, nom$
chemin = "F:\"
nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"
Sheets("Suivis_Stocks").Activate
ActiveSheet.Copy
Application.ScreenUpdating = False 'xlOpenXMLWorkbook = xlsx
'ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.SaveAs Filename:=chemin & “ / ” & nom, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
End Sub
Sub export_Suivis_Stocks()
Dim chemin$, nom$
chemin = "F:\Exportation\"
nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"
Application.EnableEvents = False
Sheets("Suivis_Stocks").Activate
ActiveSheet.Copy
Application.ScreenUpdating = False 'xlOpenXMLWorkbook = xlsx
'ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.SaveAs Filename:=chemin & “ / ” & nom, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
Application.EnableEvents = True
End Sub
Sub ExportSuivisStocks()
Application.ScreenUpdating = False
Application.EnableEvents = False
WshSuivStock.Copy
ActiveWorkbook.SaveAs Filename:="F:\Exportation\Suivis_Stocks " _
& Format(Date, "mmmm yyyy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Application.EnableEvents = True
End Sub