importer une table access sous excel (office2003)

Question

Salut &#224; tous



je suis administrateur reseau et je d&#233;bute en programmation



je voudrais importer une table access sous excel (office2003)

dans ma base bd1.mdb il y a plusieurs tables, je veux copier le contenu d'une table en particulier ( par exemple table1)

dans le fichier excel qui est ouvert et &#224; partir duquel j'execute mon VBA



merci d'avance

michelxld · Answer

bonjour

j'espere que cet exemple pourra t'aider

Sub ImportTableAccess()
'
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fichier As String, TableName As String


Fichier = "C:\MaBase.mdb"
TableName = "Table1"


Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
   Fichier & ";"
Set Rs = New ADODB.Recordset
    
With Rs
.ActiveConnection = Cn
.Open "SELECT * FROM " & TableName, , adOpenStatic, adLockOptimistic, adCmdText
End With


Feuil1.Range("A1").CopyFromRecordset Rs


Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub

bonne soiree
michel

Importer une table access sous excel (office2003)

1 réponse

Discussions similaires