que tal buen dia, bueno queria saber si me pueden ayudar con la siguiente macro, lo que quiero que haga es que a determinada fecha se cree un archivo con un nombre especifico a una ruta especifica y cuando se quiera acceder a ese archivo cheque primero si no existe el archivo creado y si existe se elimine el archivo que se esta utilizando y si llegaran a tener otro archivo como el borrado y cambien la fecha se elimine igual porque seguira el archivo guardado...AQUI LES DEJO LA MACRO QUE ESTOY MODIFICANDO TIENE UN ERROR ES QUE SI YA SE GUARDO UN ARCHIVO Y LE CAMBIO LA FECHA NO APARECE EL MENSAJE Y SE SUPONE QUE SE DEBE DE APARECER EL MENSAJE
Private Sub Workbook_Open()
Dim ruta As String
Dim archivo As String
ruta = ThisWorkbook.Path
archivo = "archibo.xls"
If Len(Dir(ruta & "\" & archivo)) = 0 Then
GoTo p1
Else: GoTo p2
GoTo p2
End
p1:
If Date >= DateSerial(2016, 2, 5) Then
Dim libro, carpeta, texto As String
libro = ("archivo")
carpeta = ("carpeta")
texto = "C:" & "carpeta" & "\" & libro & ".xls"
Set comprobarcarpeta = CreateObject("Scripting.FileSystemObject")
If Not comprobarcarpeta.folderExists(carpeta) Then
comprobarcarpeta.Createfolder (carpeta)
End If
Application.ScreenUpdating = False
ActiveSheet.Copy
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
On Error Resume Next
With wb
.SaveAs texto
Application.DisplayAlerts = True
.Close True
End With
Set wb = Nothing
Sheets("Hoja1").Select
End If
End If
p2:
MsgBox "eliminado por que se encontro archivo"
End Sub[/CODE]
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
que tal buen dia, bueno queria saber si me pueden ayudar con la siguiente macro, lo que quiero que haga es que a determinada fecha se cree un archivo con un nombre especifico a una ruta especifica y cuando se quiera acceder a ese archivo cheque primero si no existe el archivo creado y si existe se elimine el archivo que se esta utilizando y si llegaran a tener otro archivo como el borrado y cambien la fecha se elimine igual porque seguira el archivo guardado...AQUI LES DEJO LA MACRO QUE ESTOY MODIFICANDO TIENE UN ERROR ES QUE SI YA SE GUARDO UN ARCHIVO Y LE CAMBIO LA FECHA NO APARECE EL MENSAJE Y SE SUPONE QUE SE DEBE DE APARECER EL MENSAJE