Demande d aide pour erreur 3704

bonjour je suis un debutant en vba excel j ai faite une macro pour ouvrir et copier le contenu d une feuille d un classeur fermé mais ca me donne erreur 3704 (Operation is not allowed the objecy is closed)
si vous pouves me dire comment je peux corriger mon code pour qu il soit fonctionnel

merci d avance

mon code est le suivant :

    If Dir(Fichier) = "" Then
         Fichier = "chemin du fichier" & txtb1 & "\" & txtb1 & txtb2 & ".xls"
               
        Set Cn = New ADODB.Connection
        
        '--- Connection ---
        With Cn
            .Provider = "Microsoft.ACE.OLEDB.12.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;"
''            .Open
        End With
    Else
         Fichier =  "chemin du fichier" & txtb1 & "\" & txtb1 & txtb2 & ".xls"& "\" & txtb1 & " " & txtb2 & ".xls"
        Set Cn = New ADODB.Connection
        
        '--- Connection ---
        With Cn
            .Provider = "Microsoft.ACE.OLEDB.12.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;"
            .Open
    End With
    End If
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
    
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
    
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A1").CopyFromRecordset Rst
    
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing

End Sub