El mi=E9rcoles, 27 de junio de 2012 23:14:53 UTC+1, titopose escribi=F3:
los
que no
Esta macro hace lo que necesitas.
Necesitar=E1s integrarla con la que ya tienes.
Ten en cuenta lo siguiente:
-El fichero que salva es el que est=E9 activo en ese momento.
-La carpeta en la que se salva es la misma en la que est=E9 el fichero actu=
al.
Sub salvando()
ruta =3D ActiveWorkbook.Path
=20
pregunta:
nombre =3D InputBox("Introduce el nombre del fichero", "=BFNombre?")
=20
If nombre =3D "" Then Exit Sub
If Dir(ruta & "\" & nombre & ".xlsx") <> "" Then
MsgBox ("Ya existe un fichero con ese nombre, Por favor escriba otr=
o nombre")
GoTo pregunta
Else
ActiveWorkbook.SaveAs Filename:=3Druta & "\" & nombre & ".xlsx", Fi=
leFormat:=3DxlOpenXMLWorkbook, CreateBackup:=3DFalse
End If
=20
End Sub