Procédure VBA qui marche pas

Bonjour,

J'ai créer une macro sous exel avec des bouton quand on clique sur le bouton afficher il devrai avoir un classeur qui s'affiche sa ca marche mais quand je crée un dossier et met le classeur dedans sa marche pas voici le code :

Private Sub Button2_Click()
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 = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("Classeur\Classeur1.xlsx")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
End Sub

Classeur c'est le nom de mon dossier et classeur1.xlsx c'est mon classeur quand je clique sur le bouton j'ai une erreur comme quoi Classeur\Classeur1.xlsx est introuvable.
Quand je met pas de dossier que je met un classeur a la racine du dossier ou ya ma macro sa marche en marquant ceci :
Set wbExcel = appExcel.Workbooks.Open("Classeur1.xlsx")
Quelqu'un aurai une idée pour que sa marche avec un dossier ( pour dire de faire du rangement car je vais en avoir des classeurs ) s'il vous plait merci d'avance.