Damian G R Trbr respondió:
Sub abrir_fichero() Dim Archivo As String Archivo = Environ("UserProfile") & "\Mis documentos\compra.xlsx" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Archivo) Then Workbooks.Open Archivo Else MsgBox "no encontrado....
Macro que busque un archivo y lo abra desde cualquier ruta