comment ouvrir une feuille excel sachant a partir dune autre et avec une macro

salut je suis débutant en excel et en vba et joré aimé un peu d' aide sur la facon d' ouvrir une feullie excel à partir d' un barre d' outils. C 'est surtt le code de la macro qui me gène il me dit qu 'un objet est manquant :-/

voila mon code :
Sub vigie()
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = appExcel.Excel.Application
With appExcel.Workbooks.Open("C:\travail\pop\ferries\replan\vigies.xls")
End With
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\travail\pop\ferries\replan\VIGIE.XLS")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
End Sub

Merci de votre aide! ;-)
@ bientot
tarzan