Guardar-reemplazar-cancelar

[prueba]

Hola a todos. Me gustaria informarme de como puedo resolver el error 1004 que me da cuando ejecuto el macro guardar archivo, que tengo creado:
Resulta que cuando lo ejecuto me guarda el archivo correctamente, pero supongamos que el archivo que tengo lla lo tengo guardado anteriormente entonces me sale un anunciado comunicandome que si quiero reemplazarlo y me da la opcion de marcar SI, NO o CANCELAR. Bueno si digo que SI me lo reemplaza perfertamene pero si digo que NO me da el error 1004 y si dijo CANCELAR tambien me da el error 1004,
Se ha producido el error ¨1004¨en tiempo:
Error metodo ¨SaveAs de objeto¨_Worbook¨

El Macro que tengo creado es el siguiente:

Sub Botón1_Haga_clic_en()
Dim ApellidosFichero As String
Dim Nºfactura As String
ApellidosFichero = Range("F10").Value
ChDir "C:RESAMFACTURAS"
Nºfactura = Range("B13").Value
ActiveWorkbook.SaveAs Filename:=ApellidosFichero & "-" & Nºfactura
MsgBox "Fichero" & " guardado"

' Botón1_Haga_clic_en Macro
End Sub
Gracias por cualquier informacion que me podais dar,
Saludo

 

[leocoppens]

Hay varios caminos:

1. Ignorar las alertas:

Application.DisplayAlerts = False

-- tu codigo

Application.DisplayAlerts = True

2. Ignorar el error

On Error Resume Next

3. Atrapar el error y hacer algo(2 opciones)

a. On Error Goto

b. On Error GoTo ErrHandler


Saludos