Userform

Function LireClosedCell(Dossier As String, _
Fichier As String, Feuille As String, Adr As String)

Private Sub CommandButton1_Click()
    Dim Dossier As String, Fichier As String, Feuille As String, Adr As String
    
    Dossier = "E:\_Docs_Prog_Excel\_Excel_a_traiter\Excel_ferme_ado_xl4\michel_m_recup_x_fichier\"
    Fichier = "sv1.xls"
    Feuille = "Feuil1"
    
    For n = 1 To 18     'nombre de cellule a recuperer
        Adr = "B" & n    'colonne et ligne
        VC = LireClosedCell(Dossier, Fichier, Feuille, Adr)
        ComboBox1.AddItem VC
    Next n
End Sub

Function LireClosedCell(Dossier As String, Fichier As String, Feuille As String, Adr As String)
    Dim R As Long, C As Long, F As String
    R = Range(Adr).Row
    C = Range(Adr).Column
    F = ("'" & Dossier & "[" & Fichier & "]" & Feuille & "'!R" & R & "C" & C)
    LireClosedCell = ExecuteExcel4Macro(F)
End Function

Sub RequeteClasseurFerme()
    Dim cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\monClasseurBase.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
    
    Set cn = New ADODB.Connection
    
    '--- Connection ---
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
    
    '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("A2").CopyFromRecordset Rst
    
    '--- Fermeture connexion ---
    cn.Close
    Set cn = Nothing

End Sub