Abrir un archivo excel desde otro

[3pies]

Ha costado lo suyo, pero creo que con esto, se resuelve el problema...

Código:

Sub Abrir_el_otro_fichero()
    'Creamos una variable, que contendrá el nombre del archivo necesario,
    'es decir, el otro archivo que utilizaremos aparte de este que está abierto
    archivo_complementario = "Probatina1.xls"
    'Pasamos la ruta del archivo donde está este macro, a una variable,
    'por defecto, el otro archivo complementario deberá estar en esa misma ruta
    ruta = ActiveWorkbook.Path
    'Creamos el objeto FileSystemObject que entre otras cosas,
    'nos permite manipular, y leer ficheros
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Si existe el archivo complementario, que lo abra y lo minimice a continuación
    If FSO.FileExists(ruta & "\" & archivo_complementario) Then
        'Abrimos el fichero de marras...
        Workbooks.Open Filename:=ruta & "\" & archivo_complementario
        'Lo minimizamos
        ActiveWindow.WindowState = xlMinimized
    Else
        'Si el archivo complementario no está en la mmisma carpeta
        'que el archivo donde se encuentran estas líneas de código,
        'mostramos un mensaje, indicándolo
        MsgBox (Chr(13) + "     El archivo """ & archivo_complementario & """ no existe, o" & _
        Chr(13) + "     no se encuentra en la carpeta donde debería estar." & _
        Chr(13) + Chr(13) + "     La ruta donde debería hallarse es:" & _
        Chr(13) + "     " & ActiveWorkbook.Path & "\" & "     " & _
        Chr(13) + Chr(13)), vbOKOnly, " FICHERO NO ENCONTRADO"
    End If
    'Limpiamos el objeto
    Set FSO = Nothing
End Sub

Salu2

Editado: Añadido lo que está en rojo, para su correcto funcionamiento.