Discussion :

[nighthawksf117a]

Bonjour,

j'ai réalisé un petit formulaire sous VBA qui permet d'afficher le résultat d'une requete suivant 3 paramétres : Nom, date début et date fin. (Par exemple les opération réalisé entre les 2 dates pour une personne donnée): ceci marche correctement.

j'ai donc 2 fichier : affichage_requete.xls et BD.mdb
j'affiche les résultats dans affichage_requete et donc la base de donnée se trouve dans le fichier access BD

1 : ce que j'aimerais bien pouvoir faire c'est "exporter la requete" que je réalise dans le fichier Excel pour la laisser dans le fichier Access. de ce fait je pouvrais l'utiliser dans un autre fichier Excel ou word... etc

OR ça ne marche pas : le message d'erreur que j'ai lorsque j'essai d'importer la requete à paramétre que j'ai créer sous Access : est le suivant "trop peu de paramétres..."

et lorsque j'ouvre mon fichier Access et que je lance cette meme requete : il me demande de rentrer le nom et les 2 dates. (ce qui est normal car c'est ce que je veux)
Ceci ne marche plus lorsque j'essai de le faire depuis mon fichier Excel: du moins je ne sais pas comment faire.

Est ce quelqu'un pourrait m'aider a trouver une alternative ou m'expliquer comment je puis faire?

Merci de votre aide.

[LedZeppII]

Bonsoir,
Personnellement, je modifie directement le source SQL de ma requête, puis j'exporte (plus de paramètres donc).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim db as DAO.database, qdef as DAO.Querydef
Dim strSQL as String, Critere1 as String
Set db=curretnDb
Set qdef = db.QueryDefs("NomDeMaRequete")
 
Critere1="toto"
strSQL = "SELECT Champ1, Champ2, Champ3, Champ4" & VbCrLf & _
         "FROM Table1" & VbCrLf & _
         "WHERE ((Champ1 LIKE '*" & Critere1 & "*'));"
qdef.SQL = strSQL
 
set qdef = Nothing
db.close

Pour le source SQL de ta requête tu t'embêtes pas, tu copie/colle la plus grosse partie en affichant le SQL de la requête quand tu es en mode création/Modification (Affichage->Mode SQL).

Bon courage.