Damian G R Trbr

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....