Abrir el último libro

[Antoni]

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

[Gerson Pineda]

Antoni

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

Saludos

[Antoni]

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

Saludos.

[Gerson Pineda]

No me funciona... lo probaste tu?

[Antoni]

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.

[tuve]

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]

[Gerson Pineda]

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

[Antoni]

Gracias tuve, me has ahorrado el trabajo.

[Potter08]

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