Utiliser un fichier exel sans l'ouvrir VB

Const Camin As String = "D:\ledossierdufichier"  'CONSTANTES A ADAPTER  AU CLASSEURSOURCE
Const Fichier As String = "monfichier.xls"
Const onglet As String = "Feuil1"
Const plage As String = "A1:AH4500"

Sub extraire()
Dim Source As Object, Requete As Object
Dim Col As String, Lig As Byte
Dim Texte_SQL As String


onglet = onglet & "$" ' le $ est obligatoire après le nom de l'onglet

'connexion ADO au fichier mensuel désigné par etape (1 à 255)
Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Camin & "\" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
    
     'exerce la requete ADO sur la donnée à recopier
    Texte_SQL = "SELECT * FROM [" & onglet & plage & "]"
    Set Requete = CreateObject("ADODB.Recordset")
    Set Requete = Source.Execute(Texte_SQL)
    
 'restitue sur le classeur récap
    Cells(2, "A").CopyFromRecordset Requete 'A ADAPTER AU CLASSEUR CIBLE
    
End Sub