Extraction nom d'une feuille non active

Name_Feuille =sheets(1).name

Private Sub Exploreur_Click()

    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim Name_Fichier As String
    Dim Name_Feuille As String
    
    
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Users\E51973\Desktop\MED-FML-2010-000129.xls"
    
    Set Cn = New ADODB.Connection
    
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
    
        ' choix du fichier Excel par l'explorateur
    Set Fd = Application.FileDialog(msoFileDialogOpen)
    Set Fdfs = Application.FileDialog(msoFileDialogOpen).Filters
    
    Fdfs.Clear
    ' ajout de la seule extension Excel
    Set Fdf = Fdfs.Add("All files", "*.xlsm; *.xls", 1)

    ' récupération du nom et du chemin du fichier sélectionné
    With Fd
        .AllowMultiSelect = False
        If .Show = -1 Then
            Path = .SelectedItems(1)
           
            Name_Fichier = Mid(Path, InStrRev(Path, "\") + 1)
            Name_Feuille = Workbooks(Name_Fichier).Worksheets("Feuil1").Name
          
            ' MsgBox name_fichier
            Cheminchoisi.Text = Path
            Nomchoisi.Text = Name_Fichier
            nomfeuille.Text = Name_Feuille
            
        Else
        'The user pressed Cancel.
            Exit Sub
        End If
    End With
             
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
   
End Sub

Sub es()
  Set appExcel = CreateObject("Excel.Application")
  Set wbExcel = appExcel.Workbooks.Open(Filename:="chemin fichier")
  Nomfeuille = appExcel.Sheets(1).Name
  wbExcel.Close
  Set wbExcel = Nothing
End Sub

Sub aa()
Dim WB As Workbook
Set WB = GetObject("c:\test.xls")   'à adapter
MsgBox WB.Sheets(1).Name
WB.Close False
Set WB = Nothing
End Sub