Excel - Macro: reemplazar archivo

Buenas,

Tengo una macro que me grava varios un excel en una carpeta concreta con un nombre que siempre es el mismo. Cada vez que ejecuto la macro tengo que aceptar, para cada archivo, que sobreescriva el archivo existente. Puedo automatizar que sobreescriva sin tener que darle X veces a aceptar?

El codigo que uso es el siguente:

ChDir "D:Almeria"
ActiveWorkbook.SaveAs Filename:= _
"D:AlmeriaInforme_ventas.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Alguien me sabría ayudar?

Gracias

Hola. la verdad no es muy clara su consulta. creo entender que necesita que la macro solicite un nombre para el archivo cada vez que se ejecute. si es así, espero que estas sentencias le ayuden...

ChDir "D:Almeria"
nombre = InputBox("Digite Nombre del Archivo")
Var = Application.GetSaveAsFilename(nombre)

quiero macros para remplazar todo a la primwera

Utiliza la grabadora de macros,

No me he explicado muy bien, lo que me gustaría es que la macro me permitiera sobreescribir un archivo.

ChDir "D:Almeria"
ActiveWorkbook.SaveAs Filename:= _
"D:AlmeriaInforme_ventas.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Ya que con esta macro al haber ya grabado el arxivo "D:AlmeriaInforme_ventas.xls", cada vez que la ejecuto el sistema me preguna "Quiere sobreescribir el archivo?". como podría evitar esa pregunta?

Gracias,

Pues si el archivo ya esta creado... utiliza unicamente una macro para guardar, no necesariamente tienes que dar la instrucción de SaveAs, ya que aqui esta creando otro archivo... y si lo que necesitas es sobreescribir en el mismo archivo pues entonces con la siguiente macro...

Sub Macro1()
ActiveWorkbook.Save
End Sub

Salu2

El problema es que el archivo lo creo desde otro archivo

Lo que tiene que hacer la macro es:

- Del archivo X copio la pestaña Y en un nuevo libro.

- El nuevo libro lo guardo como "Y" reemplazando el archivo "Y" que creé ayer de la misma forma.

En este caso la solución que me comentas no me sirve.

Alguien sabría como solucionarlo?

Gracias

Me gustaria saber si pudo solucionar su problema? Es que quiero la misma macro,porfavor

Yo tengo ese mismo problema, se me ocurrio una solucion no se si este bien pero me funciona

Antes de corra la macro en tu proceso yo agregue esto

On Error Resume Next
Kill (Ruta & NombreArchivo & ".xlsx")

que elimine el archivo si es que existe y así no te hace la pregunta que si deseas reemplazar

saludos,

Funcionó Joya!!!!
Gracias amigo

Que bárbaro, solución a un gran problema que presentaba.
Gracias.

Usa esta instrucción antes del save, elimina el mensaje y establece la sustitución del archivo a True, una vez finalizado el código vuelve a su valor por defecto y para otros archivos volverá a pedirte conformación


Application.DisplayAlerts = False

Esta es una solucino practica y efectiva, muchas gracias!