henger

calvuch respondió: Prueba así: Sub Guarda() Dim dia As String Dim tim As String Dim nombre As String Dim ext As String Dim Path As String dia = Format(Date, "dd-mm-yyyy ") tim = Format(Time(), " hh-mm") ext = ".xls" nombre = Sheets(1).Range("h4").Value MsgBox "Generada...