Guardar Como sin que se pregunte que desee reemplazar y sin cuadros de dialogos en rutas dinamicas
Publicado por Laura (12 intervenciones) el 20/03/2019 01:39:05
buenas noches a todos hoy traigo el siguiente caso tengo un programa que tiene muchas macros, pero trabaja en un servicio en la nube, el detalle es que cada vez que se abre el archivo escoje rutas dinamicas para su guardado en la nube, el problema no es la ruta por que logro capturarla en el momento de abrir el archivo y se coloca en una celda, con la funcion de activewoorkbook.path , lo que no logro hacer es que deje de preguntarme que se encuetra un archivo con el mismo nombre y si lo deseo sobre escribir , me gustaria mas es usar alguna funcion como guardar y no guardar como... pero con ruta dinamica, les dejo el codigo gracias por la ayuda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub errorguardar()
Dim rutanube As String
Dim RutaArchivo As String
On Error Resume Next
rutanube = Hoja15.Range("R14")
RutaArchivo = rutanube & "\pruebas_guardado_nube.xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs RutaArchivoIf ActiveWorkbook.Saved = False Then
MsgBox ("ALERTA...!! Existe un ERROR en la Ruta del Directorio de guardado del sistema por favor revise su conexíon")
End If
End Sub
Valora esta pregunta
0
