Ocultar mensaje al guardar

Buenas,
me gustaría que me resolvieras una pequeña duda, tengo un botón en excel con el siguiente código vba:
Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\it980188\Desktop\pruebala.xls"
Application.Quit
End Sub
Lo que me hace es, guarda el libro de excel y me cierra el excel, el problema que tengo es que cuando lo hago, me sale un mensaje de si quiero sustituir el archivo( pues ese archivo ya existe) y lo que quiero es actualizarlo.
Me gustaría si pudieras decirme el código de vba para que sustituya el archivo sin que me pregunte nada.
Gracias

1 Respuesta

Respuesta
1
Esta macro te servirá
Private Sub CommandButton2_Click()
a = Application.ThisWorkbook.Name
If a = "pruebala.xls" Then
ActiveWorkbook.Save
Application.Quit
Else
ActiveWorkbook.SaveAs Filename:="C:\pruebala.xls"
Application.Quit
End If
End Sub
No olvides finalizar la pregunta
Muchas gracias por tu respuesta, pero encontré esta solución:
Application.DisplayAlerts = False, lo pones en primera linea de codigo y ya!
Pero gracias de todas formas!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas