Je sais pas trop ce qui ne fonctionne pas dans ton programme, mais voila comment j'ouvre un classeur a partir d'un autre, simplement pour lires les valeurs des cellules...
Set xl = CreateObject('Excel.Application')
xl.Application.ScreenUpdating = False
xl.DisplayAlerts = False
xl.Workbooks.Open chemin
xl.sheets(1).range....