Dim conn As ADODB.Connection
Dim req_projet As ADODB.Recordset
Dim Fichier As String, requete_name As String
Dim i As Byte, a As Byte
Fichier = "c:\DBmodule.accdb"
requete_name = "Query_projet_choice"
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Fichier & ";"
Set req_projet = New ADODB.Recordset
With req_projet
.ActiveConnection = conn
.Open "SELECT * FROM " & requete_name, , adOpenStatic, adLockOptimistic, adCmdText
End With
Sheets("projet").Range("D2").CopyFromRecordset req_projet
req_projet.Close
Set req_projet = Nothing
conn.Close
Set conn = Nothing
i = Application.WorksheetFunction.CountA(Sheets("proje t").Range("$D:$D"))
For a = 1 To i
Sheets("projet").Range("C" & a + 1).Value = Sheets("projet").Range("D" & a + 1) & " " & Sheets("projet").Range("E" & a + 1).Value
Next a