Public Sub Guardar() 'copie sauvegarde classeur
Range("B5:C20").Select
Selection.Copy
ActiveWindow.ScrollColumn = 2
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim Nom As String
Nom = "Reporte de Chatarra del " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Nom
rep = MsgBox("El reporte del dia ha sido guardado en: " & Nom, vbYes + vbInformation, "Guardar el reporte")
End Sub