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

[tarzan]

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

 

[@+Thierry]

Bonjour Tarzan, le Forum

Le code ci-dessus n'est pas nécessaire pour ouvrir un classeur sur une feuille à partir d'Excel.

Non il suffit de faire ceci :

Sub OuvrirClasseur()
Dim Chemin As String, NomFichier As String

Chemin = "C:\travail\pop\ferries\replan\"
NomFichier = "vigies.xls" 'attention tu as écrit "Vigies " "Vigie" dans ton code

Workbooks.Open Chemin & NomFichier
Sheets(1).Activate
End Sub

Bon Courage
@+Thierry

 

[tarzan]

merci beaucoup thierry ca marche !^^
@ bientot!^^
tarzan