Acceder en VBA Excel à une requete avec fonction déclarée dans Access

Bonjour

j'ai résolu mes autres soucis reste plus que celui la (pour l'instant)
J'ai donc une requete

Code:

---

1 2 3 4 5

PARAMETERS param Byte; SELECT Table1.Nom, Table1.LSP FROM Table1 GROUP BY Table1.Nom, Table1.LSP HAVING (((c_and([table1].[LSP],[param]))=True));

---

j'aimerais y accéder depuis VBA Excel en DAO ou ADO
j'ai tenté en DAO mais cela ne fonctionne pas... Il me dit que la fonction c_and n'existe pas.
je vous mets mes fichiers de tests il s'agit du bouton req2 (le chemin est déclaré en haut du code)
Je ne suis pas sur que l'on puisse le faire ....

Bonsoir,

Ci-joint une solution qui semble fonctionner...
Les modifications effectuées sont commentées dans le code.

wape

merci pour ta réponse
mais le traitement devient drolement long et je perds donc tout interet de ma fonction and ...

Bonjour,

Depuis Jet 4 (apparu avec Access 2000), le SQL offre les opérateurs binaires BAND, BOR (et les autres ?).
Mais ils ne sont utilisables qu'avec ADO (ni DAO, ni mode graphique dans Access).

Au lieu d'appeler la requête dans le fichier MDB, tu pourrais construire cette requête dans Excel (en utilisant l'opérateur BAND) et l'exécuter avec ADO.

Ainsi, tu n'aurais plus besoin d'appeler la fonction utilisateur dans Access.
_

merci pour cette nouvelle approche

j'ai testé et c'est ok :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim db As ADODB.Connection Dim rst As ADODB.Recordset Dim cmd As ADODB.Command   Set db = New ADODB.Connection With db .provider = "Microsoft.JET.OLEDB.4.0" .ConnectionString = ActiveWorkbook.Path + "\" + nom_base .ConnectionTimeout = 6 .CommandTimeout = 60 .Open End With   Set cmd = New ADODB.Command With cmd .ActiveConnection = db pp = InputBox("Votre clé :", , 1) .CommandText = "select nom,LSP from table1 where (table1.LSP BAND " & pp & ")=table1.LSP;" 'nom de la requete Set rst = .Execute

---

Bilan

ok pour pour ma fonction qui est en fait avantageusement remplacer par BAND
PAr contre appelable unquiment en ADO et non en DAO
Et visiblement pas possible d'appeler une fonction déclarée VBA access en VBA excel ..

j'ai mis en pièce jointe le code modifié

oups
j'ai oublié
ou puis-je trouver de la doc sur BAND ou BOR

merci