Excel et nom de fichier paramétré

Sub Ouvre()
Dim Fich As String
N = 2008
    Fich = "bilan" & N - 1 & ".xls"
    Workbooks.Open (Fich)
    ActiveWorkbook.Sheets("Feuil1").Select
    
End Sub

public  Fich As String
Public Annee as string

Sub Ouvre()
'si tu vient de la feuille.....
     Annee = val(Right(activesheet.Name,4))
'si pas dans le même répertoir, ajouter le path
    Fich = "bilan" & Annee - 1 & ".xls"
    'RECTIFICATION
    Workbooks (Fich).Open
    ActiveWorkbook.Sheets("Feuil1").Select
    
End Sub

Sub Fermer()
    'si le classeur a déjà été fermer
     On error resume Next
     Workbooks (Fich).Close
End Sub

Public Sub SearchWorkbookClose(ByVal fichier As String, ByVal feuille As String, ByVal cellule As String)
Dim cnx As ADODB.Connection
Dim query As String
Dim rs As ADODB.Recordset
Dim cnxCde As ADODB.Command
    
    'Ne pas oublier le $ après le nom de la feuille
    feuille = feuille & "$"
   
    Set cnx = New ADODB.Connection
    cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
                
    Set cnxCde = New ADODB.Command
    With cnxCde
        .ActiveConnection = cnx
        .CommandText = "SELECT * FROM [" & feuille & cellule & "]"
    End With
                  
    Set rs = New ADODB.Recordset
    rs.Open cnxCde, , adOpenKeyset, adLockOptimistic
                  
    Set rs = cnx.Execute("[" & feuille & cellule & "]")
    
    'affichage du résultat dans le classeur actif
    ThisWorkbook.Worksheets(2).Range("A2").CopyFromRecordset rs
            
    'fermeture connexion
    rs.Close
    cnx.Close
    Set cnx = Nothing
    Set rs = Nothing
    Set cnxCde = Nothing

End Sub