ADODB.Recordset

Sub importer_access_jour()

Dim source As ADODB.Connection
Dim zone As ADODB.Recordset
Dim chemin As String

chemin = ActiveWorkbook.Path
' ouvre la base de données Access
Set source = New ADODB.Connection
source.Provider = "Microsoft.Jet.OLEDB.4.0;"
source.Open chemin & "\autocom.mdb"

'Création du RecordSet
Set zone = New ADODB.Recordset

' envoye de la zone vers le RecordSet "zone"
Set zone = Range("A3:M5000")

/-------------------------------/
'La fonction qui va faire que le RecordSet qui contient la zone sera envoyé vers la base.
/-------------------------------/

'ferme la requête
zone.Close
source.Close

End Sub

Cliquez pour agrandir...