Sub Import_calcul()
Dim conn As ADODB.Connection
Dim req_divers As ADODB.Recordset
Dim Fichier As String, requete_name As String
Fichier = "c:\DBmodule.accdb"
requete_name = "Query_projet_calcul"
Sheets("Calcul").Range("A133:V5001").ClearContents
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Fichier & ";"
Set req_divers = New ADODB.Recordset
With req_divers
.ActiveConnection = conn
.Open "SELECT * FROM " & requete_name, , adOpenStatic, adLockOptimistic, adCmdText
End With
Sheets("calcul").Range("A133").CopyFromRecordset req_divers
req_divers.Close
Set req_divers = Nothing
conn.Close
Set conn = Nothing
End Sub