Discussion :

[akmer]

Bonjour,
Je suis entrain de faire des tests pour faire appel à des données Access depuis Excel.
Il y a un problème qui est le suivant:
Je peux faire appel a une requête où il ne faut pas définir de paramètre, cependant dès que je fais appel à une requête où normalement sous Access il faut entrer dans un boite de dialogue un paramètre, les donnés n'arrivent pas sous Excel. Je pensais que sous Excel j'aurais la même boite de dialogue que lorsque je suis sous Access et que j'aurais pu saisir le paramètre voulu.
J’espère avoir été le plus clair possible et que quelqu'un pourra m'aider
Merci d’avance

[cafeine]

Hello,

c'est normal, je pense que tu devrais travailler sur le SQL de la requête pour remplacer le paramètre par une variable
exemple avec la référence DAO 3.x

avec une requête du type :
Code sql :
... WHERE [champ] = [nomparamètre] ...

ça donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim db as dao.database
dim rs as dao.recordset
 
set db=dao.opendatabase("chemin de ma base.mdb",false,false)
strSQL = db.querydefs("ma requete").sql
strSQL = replace(strSQL, "[nomparamètre]", Inputbox("Entre le paramètre"))
set rs = db.Openrecordset(strsql, dao.dbopensnapshot)
range("A2").copyfromrecordset rs
rs.close
 
set rs=nothing
set db=nothing

[akmer]

Merci de votre aide, mais j'ai essayé votre code vba et cela n'a pas marché.
Voila ce que j'ai mis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub exportation2()
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = DAO.OpenDatabase("Z:\projet 2 programme archivage\ENGAGE.mdb", False, False)
strsql = db.QueryDefs("11)état décision en rentrant parametre").Sql
strsql = Replace(strsql, "[nomparamètre]", InputBox("Entre le paramètre"))
Set rs = db.Openrecordset(strsql, DAO.dbopensnapshot)
Range("A2").CopyFromRecordset rs
rs.Close
 
Set rs = Nothing
Set db = Nothing

Et voila ma Sql (il y a 2 paramétre) :

Code sql :

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

1
2
3
SELECT LIGNE.CLINOM, LIGNE.CLIACT, LIGNE.CLICOM, LIGNE.AGENUM, LIGNE.Type_Client, LIGNE.Not_OMERIS, LIGNEDEMANDE.DEMNUM, SOUSDEMANDE.SOUSLIB, LIGNEDEMANDE.LDSOM, LIGNEDEMANDE.LDSIGN, LIGNE.DECNUM, LIGNE.AUTNUM, LIGNE.TRAITNOM, LIGNE.DECDAT
FROM (LIGNE INNER JOIN LIGNEDEMANDE ON LIGNE.LIGNUM = LIGNEDEMANDE.LIGNUM) INNER JOIN SOUSDEMANDE ON LIGNEDEMANDE.SOUNUM = SOUSDEMANDE.SOUNUM
WHERE (((LIGNE.DECDAT)>=[Entre le] And (LIGNE.DECDAT)<=[Et le]));

Si vous pouviez m'apporter encore plus d'aide je vous serai très reconnaissant.

[cafeine]

Moak ... [nomparamètre] était un exemple !!!
dans ton cas, il faut mettre

Code :

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

1
2
strsql = Replace(strsql, "[Entre Le]", "#" & format(CDate(InputBox("Entre le")),"mm/dd/yyyy") & "#")
strsql = Replace(strsql, "[Et Le]", "#" & format(CDate(InputBox("Et le")),"mm/dd/yyyy") & "#")

[akmer]

Cela ne marche toujours pas, j'ai bien vérifié l'écriture.
Quand je clique sur le bouton qui lance le sub sa m'envoi directement dans vba et sur le code
Voila le code dans ds sa totalité, je vois pas où est l'erreur:

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
Sub exportation2()
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = DAO.OpenDatabase("Z:\projet 2 programme archivage\ENGAGE.mdb", False, False)
strsql = db.QueryDefs("11)état décision en rentrant parametre").Sql
strsql = Replace(strsql, "[Entre Le]", "#" & Format(CDate(InputBox("Entre le")), "mm/dd/yyyy") & "#")
strsql = Replace(strsql, "[Et Le]", "#" & Format(CDate(InputBox("Et le")), "mm/dd/yyyy") & "#")
Set rs = db.Openrecordset(strsql, DAO.dbopensnapshot)
Range("A2").CopyFromRecordset rs
rs.Close
 
Set rs = Nothing
Set db = Nothing
 
 
End Sub

Excusez moi si je comprens pas tous car je suis débutant ;-)

[Pierre Fauconnier]

Bonjour

Il serait utile de préciser sur quelle ligne le code s'arrête.

La référence à DAO est-elle bien cochée dans Outils/Références?

La variable strsql n'est pas déclarée dans ton code...

Attention que la casse (majuscules/minuscules) n'est pas identique dans la fonction de remplacement et dans le texte de la requête

Le champ sur lequel sont appliqués les critères est-il bien un champ de type Date?

La requête fonctionne-t-elle sous Access?


Une autre technique est de remplacer la date saisie en paramètre par un entier long. Avec cette technique, je n'ai jamais rencontré de problème.

De plus, pour la clarté du code, je préfère travailler avec des variables, plutôt que d'utiliser InputBox à l'intérieur de la fonction Replace. Cela me permet de vérifier que les dates sont saisies de façon correcte (par de permutation entre les jours et les mois).

Le code devient

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
Dim strsql As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim DateDebut As Date
Dim DateFin As Date
 
DateDebut = CDate(InputBox("Date de début"))
DateFin = CDate(InputBox("date fin"))
Set db = DAO.OpenDatabase("Z:\projet 2 programme archivage\ENGAGE.mdb", False, False)
strsql = db.QueryDefs("11)état décision en rentrant parametre").Sql
strsql = Replace(strsql, "[entre le]", CLng(DateDebut))
strsql = Replace(strsql, "[et le]", CLng(DateFin))
Set rs = db.Openrecordset(strsql, DAO.dbopensnapshot)
Range("A2").CopyFromRecordset rs
rs.Close

et il fonctionne bien chez moi (avec les adaptations que j'ai dû réaliser pour créer une base de test...)