importer Access2007 vers excel

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.mdb"
requete_name = "Query_projet_choice"

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.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("projet").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

Cliquez pour agrandir...