Access, Excel et ADO [Résolu ;)]

[Jam]

Salut à tous,

Le sujet du post est assez succinct. En fait voilà mon p'tit problème:

J'ai un fichier CSV lié à une base de données Access. J'a créé une requête dans Access que je souhaiterai appeller d'Excel et dont je voudrais récupérer le résultat dans Excel (cette dernière partie n'est pas un problème). En fait je ne me souvient pas des objets et syntaxes et j'ai peu de temps pour retrouver la syntaxe de l'appel d'une requête dans Access.

Si un des Michel ou un autre pro de ADO avait la réponse rapide, je serai preneur.

Merci d'avance.

PS./ en attendant une éventuelle réponse je cherche de mon côté, tout en espérant avoir été assez clair :unsure:

Message édité par: jam, à: 25/08/2005 20:39

 

[Jam]

Re:Access, Excel et ADO

Re salut,

Ben j'ai trouvé - OUF!
Merci au passage à Maxoverfred pour un lien trouvé dans un de ses posts.

Pour ceux que cela intéresse voici la soluce:

Sub GetData2()
Dim oCon As ADODB.Connection
Dim oRec As ADODB.Recordset
Dim sConnString As String
Dim oCommand As ADODB.Command

Set oCon = New ADODB.Connection

With oCon
    .Provider = 'Microsoft.Jet.OLEDB.4.0;'
    .ConnectionTimeout = 30
    .CursorLocation = adUseClient
    .Open 'Data Source=C:\\monchemin\\mabase.mdb'
End With

Set oCommand = New ADODB.Command

With oCommand
    .ActiveConnection = oCon
    .CommandType = adCmdStoredProc
'Nom de la requête stockée dans Access
    .CommandText = 'Data_Roul'
End With

Set oRec = oCommand.Execute

Feuil11.Cells(1, 1).CopyFromRecordset oRec

oRec.Close
oCon.Close

End Sub

Bref ce bout de code me permet de lancer une requête stockée dans une base Access et de me renvoyer le résultat directement dans ma feuille Excel choisie.

Bonne soirée à tous.