Extraire une feuille d'un classeur

Bonjour

je suis un peu embeté devant mon code que je n'arrive pas à corriger , je dispose de 2 classeurs A et B et toutes les feuilles de mon classeur B sont numerotées sauf une qui est nommée sous forme de texte.

le but est qu'a partir de la feuille 3 , cellule E1 de mon classeur A , j'entre le numero de n'importe feuille se trouvant dans B et via un bouton se trouvant sur ma feuille 3 du classeur A , je dois pouvoir l'afficher .

j'ai fait ceci , mais cela n'appelle pas la bonne feuille dans B

Sub OuvrirDoc2()
Dim feuille As Worksheet
chemin = ThisWorkbook.Path

Workbooks.Open Filename:=chemin & "\B.xls"

For Each feuille In Sheets

    If (feuille.Name) = Workbooks("A.xls").Sheets("Feuil3").Range("E1").Value Then
         Sheets(feuille.Name).Activate
         Else
         Exit Sub
        Exit For
    End If
 Next feuille

End Sub

Vous remerciant pour toute correction

Bonjour

Sans test je verrai comme ça

Sub OuvrirDoc2()
Dim feuille As Worksheet
chemin = ThisWorkbook.Path

Workbooks.Open Filename:=chemin & "\B.xls"

For Each feuille In Sheets
    If feuille.Name = Workbooks("A.xls").Sheets("Feuil3").Range("E1").Value Then
         feuille.Activate
         Exit Sub
    End If
 Next feuille
End Sub

c'est bien ca ! c'etait pourtant peu de chose , mais merci infiniment pour cette correction Banzai !