[XL-2010 AC-2010] Importer une requête acces dans excel avec modifications des filtres

**marso** · 26/02/2015, 10h21

Bonjour

J'ai posté cette question dans le forum excel mais on m'a conseillé de venir ici

je fais appel à votre aide car je désespère.
Je suis débutant en VBA.
J'ai une requête Access dans laquelle je dois changer un filtre puis ensuite l'importer sur une feuille Excel.
Je pensais bien faire en cherchant à modifier le filtre d'un champ en utilisant parameters mais j'ai toujours un message d'erreur
au niveau de la dernière ligne de code (j'ai testé cdate, format et en dur)
CODE d'ERREUR 3265.

Code :

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

Query.Parameters("MaturityDate").Value = "#23/02/2015#"

Y a t'il des protections sur une requête access?
Qu'est ce que je fais de mal? j'ai parcouru d'autres sources et il me semble que les personnes procèdent de la même manière...

Merci pour votre aide.

Marso.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
    Dim acApp As Access.Application
    Dim Infocentre As DAO.Database
    Dim Db As DAO.Recordset
    Dim Query As DAO.QueryDef
    Dim srcPathBdd As String
    Dim nomDeLaRequete As String
 
    ' Démarrer Access
    Set acApp = New Access.Application
 
    ' Initialise le chemin de la base de données
 
    srcPathBdd = "C:\X.accdb"
 
    ' Ouvrir la base de données concernée
    acApp.OpenCurrentDatabase (srcPathBdd)
    Set Infocentre = acApp.CurrentDb()
 
    'Seletionne La Requête concernée
    nomDeLaRequete = "NomRequete"
    Set Query = Infocentre.QueryDefs(nomDeLaRequete)
    'on change le paramètre de la date
 
 
    'Query.Parameters("MaturityDate").Value = "#23/02/2015#"

**Jean-Philippe André** · 26/02/2015, 10h45

Salut,

si ton parametre est de type date, sa valeur doit aussi l'etre.

Essaie avec

Code :

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

Query.Parameters("MaturityDate").Value = #02/23/2015#

**marso** · 26/02/2015, 10h53

Bonjour,

merci pour ta réponse.
ce champ est bien une date.
J'ai le même résulta d'erreur avec ta ligne de code et aussi lorsque que je mets la date entre "".

Marso.

**Jean-Philippe André** · 26/02/2015, 11h22

Hum, et peut-on voir le SQL de ta requete en question stp ?

La syntaxe etant donnee ici :
http://access.developpez.com/faq/?pa...s#UtilReqExist

**marso** · 26/02/2015, 14h31

J'en étais arrivé à me dire que j'allais créer un nouveau recordset et executer la même requête SQL que dans ACCESS en modifiant mon filtre.
Mais j'aimais la clarté et la simplicité de l'utilisation de "parameters", je dirai que c'etait plus pratique pour quelqu'un qui devrait reprendre le code.
heu.. j'avoue que la requete SQL est assez grosse j'ai pas trop envie de la sortir comme ça en fait.
il faudrait quoi comme mot clef?
en tous cas pour le filtre c'est "AND ((dbo_Bonds.MaturityDate)>#2/20/2015#)" il y a la selection de qqs champs et 8 lignes de LEFT JOIN sur des tables en liens.
et c'est en copiant la requete que je me rends compte qu'il faut mettre en date US.
Est ce suffisant?

Merci.

Marso.

**Jean-Philippe André** · 26/02/2015, 14h42

OK,

du coup en remplacant dans ta requete

Code SQL :

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

AND ((dbo_Bonds.MaturityDate)>[MinMaturityDate])

+
en gardant la ligne :

Code :

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

Query.Parameters("MinMaturityDate").Value = #02/23/2015#

ca donne quoi ?

**marso** · 26/02/2015, 15h37

et bien ça fonctionne nickel

merci beaucoup!!!!

En revanche donc j'ai rien compris...
Donc on ne peut pas paramétrer le Champ directement mais juste une variable contenu dans son filtre?

merci.

Marso.