Hola:

Si poneis el adjunto en el escritorio, puede seros de gran (¿?) utilidad.

Cuando lo ejecuteis, se abrirá el último libro con el que hayais trabajado.

Luego mas.

MA

LastBook.zip

Antoni

Muy bueno... pero da error cuando eliminas el libro reciente de la carpeta, sera que intentas, para que abra el penultimo?

Saludos

Efectivamente Gerson, añádele un On Error Resume Next antes del Open, eso que tanto le gusta a Verzulsan.

Saludos.

No me funciona... lo probaste tu?

Hola Gerson:

A mi me funciona correctamente, eso si con 2 archivos como mínimo en la lista.

Ahora he de salir, cuando vuelva, lo puliré un poco mas.

Saludos.

Hola Gerson,

Quizás así:

 

Sub Abrir_ultimo()

    Dim n As Byte

    With Application

        .DisplayAlerts = False

        For n = 2 To .RecentFiles.Count

            If Dir(.RecentFiles(n).Path) <> "" Then

                .RecentFiles(n).Open

                Exit For

            End If

        Next n

        ThisWorkbook.Close

        .DisplayAlerts = True

    End With

End Sub

[/CODE]

tuve quedo perfecto, y con el famoso "ON ERROR RESUME NEXT" va pasando al mas antiguo (hasta llegar a diferente carpeta)..., porque si eliminas algunos archivos (algo muy probable en las carpetas), mostraba error

Saludos

Gracias tuve, me has ahorrado el trabajo.

Excelente gracias solo aclarando que el archivo tiene que estar en le mismo directorio donde se guardan los demas archivos, al menos a mi solo asi me funciono.

Salu2.xlsx