[E-03] Récupération des données d'une BD Access 02 via excel
Bonjour
Je cherche à récupérer des données d'une base de données access. Malgré mon bon vouloir et mes nombreuses recherches, je n'y arrive toujours pas.
Voici le code que j'ai écrit
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Function GetInfo(U As String, T As String, S As String)
Dim sql As String
Dim acApp As Access.Application
Dim chemin As String
Dim nmt As String
xml = Value1
'nom de la table
nmt = Value2
' Démarrer Access
Set acApp = New Access.Application
' Ouvrir la base de données concernée
acApp.OpenCurrentDatabase (chemin & "nom.mdb")
sql = "SELECT C FROM [" & nmt & " ] WHERE S = " & Chr(34) & U & Chr(34) & " and Sc=" & Chr(34) & S & Chr(34)
Get Info=currentDb.execute(sql)
End Function |
Par contre vba n'a pas trop l'air d'accord avec la ligne rouge. sauriez vous pourquoi? en plus, lorsqu'il exécute la requête sql, il ne trouve pas la table. l'aurais je mal désignée?
Merci pour votre aide
