Actividad pública reciente
Voto positivo a la respuesta
Macro que busque un archivo y lo abra desde cualquier ruta
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....