UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

FELIXCASTREJON


HOLA SOLICITO DE SU AMABLE AYUDA PARA QUE MI MACRO GUARDE EL ARCHIVO NUEVO EN AUTOMATICO EN UNA RUTA EN ESPECIFICO. ES UN ARCHIVO QUE TENGO COMPARTIDO EN LA RED, Y ME GUSTARIA QUE CUANDO ALGUIEN MAS LO MODIFIQUE LA CARPETA DONDE SE GUARDE EL ARCHIVO NUEVO QUE GENERA IGUAL EN AUTOMATICO SEA GUARDADO EN UNA CARPETA EN ESPECIFICO.

ESPERO ME PUEDAN AYUDAR POR FAVOR.

GRACIAS

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Declaramos las variables.
Dim VentanasProtegidas As Boolean
Dim EstructuraProtegida As Boolean
Dim NombreHoja As String
Dim Confirmacion As String
Dim NombreArchivo As String
Dim GuardarComo As Variant
Dim Extension As String
Dim ruta As String

'
'En caso de error.
On Error GoTo ErrorHandler
'
'Validamos si la ventana o la estructura del archivo están protegidos.
VentanasProtegidas = ActiveWorkbook.ProtectWindows
EstructuraProtegida = ActiveWorkbook.ProtectStructure
'
'En caso de estar protegidas mostramos mensaje.
If VentanasProtegidas = True Or EstructuraProtegida = True Then
    MsgBox "No se puede ejecutar el comando cuando la estructura del archivo está protegida.", _
           vbExclamation, "MAPRESA"
Else
    '
 
   
    'Copiamos la hoja y guardamos.
    NombreHoja = ActiveSheet.Name
    Confirmacion = MsgBox("Desea guardar la hoja '" & NombreHoja & "' como archivo nuevo?", _
                          vbQuestion + vbYesNo, "RESPALDO MAPRESA")
    Application.ScreenUpdating = False
    ruta = "\FELIX_CASTREJON\Users\Gabriel Vargas\Documents\Ordenes de Compra"
    
    
    If Confirmacion = vbYes Then
        ActiveSheet.Select
        ActiveSheet.Copy
        NombreArchivo = ActiveWorkbook.Name
        ruta = "\FELIX_CASTREJON\Users\Gabriel Vargas\Documents\Ordenes de Compra"
        
     
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NombreHoja & Range("L3"), Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
       
   
        
        
        
        If GuardarComo = False Then
            Workbooks(NombreArchivo).Close SaveChanges:=False
        
    Else
    
    
    '
    End If
    End If
End If
'
Exit Sub
'
'En caso de error mostramos un mensaje.
ErrorHandler:
MsgBox "Ha ocurrido un error: " & Err.Description, vbExclamation, "MAPRESA"
Workbooks(NombreArchivo).Close SaveChanges:=False

NombreArchivo = ActiveWorkbook.Name
Workbooks(NombreArchivo).Close SaveChanges:=False
'
Application.Quit

End Sub

Igtelo

avatar
Hola Felix.

A ojo de buen "cubero" tu macro trabaja bien, sólo veo un par de instrucciones que no tienen sentido, pero no afectan.

ActiveSheet.Select
 ActiveSheet.Copy



Saludos
Ignacio Téllez
P.d: Por favor No escribas en mayúsculas.

Igtelo

avatar
Cierro el tema.

Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.