Discussion :

[jokenjo]

Bonjour ,
j´ai fait une requete access que j´aimerai exporte le resultat dans une table excel .La requete me donne une erreur du type "peu de parametre".
Avec des requetes sans condition cela fontinonne bien.Mais avec une requete du type ou l´utilsateur doit donner par exemple un nom (ou numero) pour que la requete n´exporte qu´avec cette condition : l´erreur survient.
Voici mon code

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
 
 
 
Dim db1 As DAO.Database
 
Dim rst As DAO.Recordset
 
 
Set db1 = DBEngine.OpenDatabase("mabase")
 Set rst = db1.OpenRecordset(Name:="requete_comdition",Type:=dbOpenSnapshot)
 
With Worksheets("feuil1").Range("A2")
 
          Selection.ClearContents
 
          .CopyFromRecordset rst
     End With
db1.Close

merci

[LedZeppII]

Bonjour,

c'est normal avec des recordset.
(Voir tuto DAO (requête paramètrée) et lien faq)


Exemple d'application à ton à ton cas:

Code vb :

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
Dim db1 AS DAO.DATABASE
Dim qdf  As DAO.QueryDef, rst AS DAO.Recordset
Dim strParam1 As String
 
strParam1 = InputBox("Entrer une valeur pour NomDuParamètre")
If strParam1 = "" Then Exit Sub 
 
SET db1 = DBEngine.OpenDatabase("mabase")
SET qdf = db1.QueryDefs("requete_comdition")
' Pour un paramètre de type Texte
qdf.Parameters("NomDuParamètre") = strParam1
SET rst = qdf.OpenRecordset
 
WITH Worksheets("feuil1").Range("A2")
 
          Selection.ClearContents
 
          .CopyFromRecordset rst
     End WITH
db1.Close

Si le paramètre n'est pas de type texte, il faudra si besoin, le convertir.
Remplacer

Code vb :

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

1
2
' Pour un paramètre de type Texte
qdf.Parameters("NomDuParamètre") = strParam1

par le type de convertion adéquate.
Exemple :

Code vb :

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

1
2
3
 
' Pour un paramètre de type Entier Long
qdf.Parameters("NomDuParamètre") = CLng(strParam1)

A+

[jokenjo]

Bonjour
merci pour votre lien mais j´ai toujours un problem , il ne trouve pas la liste donne .Me donne une erreur a ce niveau :

Code :

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

1
2
 
qdf.Parameters("NomDuParamètre") = strParam1

je ne sais pas d´ou vient le probleme .J´ai bien remplace ma base , la requete et aussi le nom du parametre.. mais toujours le meme problem

[Invité]

Bonjour

Le nom de ton paramètre dans ta requête est bien "NomDuParamètre" ?

Starec

[jokenjo]

Bonjour

Le nom de ton paramètre dans ta requête est bien "NomDuParamètre" ?

Starec

Bonjour
le nom de mon parametre dans ma requete est autre ( que j´ai remplace avant d´utiliser le code ).mais ce que je comprend pas:
1- dans ma requete j´ai plusieur champs (4)
2- je demande de m´afficher les Noms commencant pas "J", elle m´affiche cela sans probleme.
Dans ce cas quel serait mon parametre a mettre dans mon code avec l´utilsation de ce "Querydefs" ? sachant que j´ai 4 colonnes(champs): Nom-Prenom -Numero_Age.
merci

[Invité]

Bonjour

Peux-tu nous mettre le SQL de ta requête, s'il te plait pour y voir plus clair.

Starec

[jokenjo]

Bonjour

Peux-tu nous mettre le SQL de ta requête, s'il te plait pour y voir plus clair.

Starec

Code :

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

1
2
3
4
SELECT tbl_nouveau.[Projet chef], tbl_nouveau.T_num, tbl_nouveau.[Nom Projekt]
FROM tbl_nouveau
WHERE (((tbl_nouveau.[Projekt Leiter]) Like "*"+[Donner Nom ]+"*") AND ((tbl_nouveau.Aktivieren)=Yes));
voici le code

[LedZeppII]

Bonjour,

Ton paramètre est : [Donner Nom ]

Code vb :

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

qdf.Parameters("Donner Nom ") = strParam1

ou

Code vb :

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

qdf.Parameters("[Donner Nom ]") = strParam1

J'ai essayé dans Excel en recréant dans une base ta table tbl_nouveau et ta requête requete_comdition.
Ça fonctionne.

A+