exportation Access vers Excel

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

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:

---

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

---

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

Code:

---

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:

---

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.

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

Code:

---

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") & "#")

---

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:

---

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 ;-)

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:

---

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...)

Le code s'arrétait avant sur: Sub exportation2() (en jaune) et selectionnait en bleu db As DAO.Database
A la suite de votre réponse je suis allez dans outil-référence et j'ai trouvé 2 ligne à cocher qui correspondait à DAO: Microsoft DAO 3.51 object library et Microsoft DAO 3.6 object library.
Quand je selectionne Microsoft DAO 3.51 object library , je peux saisir la date de début et de fin dans les inputbox cependant quand je clique sur ok de la date de fin le message suivant s'affiche "Erreur d'execution 429.Un composant Active X ne peut pas crée d'objet" et j'ai le choix entre fin et débogage et si je clic sur débogage la ligne en jaune est la suivante:

Code:

---

Set db = DAO.OpenDatabase("Z:\projet 2 programme archivage\ENGAGE.mdb", False, False)

---

Quand je selectionne Microsoft DAO 3.6 object library, le message d'erreur est le suivant: "Erreur d'execution 3061. Trop peu de parametre.2 attendu" et la ligne en jaune est :

Code:

---

Set rs = db.Openrecordset(strsql, DAO.dbopensnapshot)

---

Pourquoi cela fait sa? J'ai bien selectionné ce qu'il fallait?

De plus pour répondre à vos questions, le champ sur lequel sont appliqués les critères est un champ de type Date et la requête fonctionne très bien sous Access, on rentre les critéres et le resultat s'affiche parfaitement.

Cependant je n'est pas compris cette question??
"Attention que la casse (majuscules/minuscules) n'est pas identique dans la fonction de remplacement et dans le texte de la requête"

J'ai essayé d'être le plus clair possible en espérant que vous pourriez m'aider.

Merci encore pour l'attention que vous portez à ma demande

Tant qu'à faire, il vaut mieux cocher la référence DAO 3.6....

Pour ce qui est de la casse...

Par défaut, la fonction Replace effectue une comparaison binaire pour remplacer une portion de chaîne, et donc, Replace est par défaut sensible aux majuscules/minuscules.

Tu dois donc:
- soit rechercher la chaîne exacte, telle que présente dans le texte de la requête Access
- soit utiliser Replace avec le paramètre Compare, comme ceci:

Code:

---

strsql = Replace(expression:=strsql, Find:="[entre le]", Replace:=CLng(DateDebut), compare:=vbTextCompare)

---

Lors de la construction de ce genre de code, tu as intérêt à mettre un point d'arrêt sur la ligne

Code:

---

Set rs = db.Openrecordset(strsql, DAO.dbopensnapshot)

---

pour vérifier que ta chaine strsql renvoie un texte sql valide.

je te conseille en effet un

Code:

---

Debug.Print strSQL

---

montre nous le résultat.

l'erreur venait des majuscule, "Entre le" et "Et le" il fallait une majuscule au E, docn tous marche bien.
Merci beaucoup pour votre aide.
Je vais faire quelque petites vérifications avant de mettre le post comme résolu.
Merci encore.

A toutes fins utiles (je n'ai lu que le dernier post)
Dans une comparaison, tu peux utiliser
Option Compare {Binary | Text | Database}
Option Compare Text ne fera pas de différence entre majuscules et minuscules.
Par ailleurs, si tu as à homogénéiser tes données tu peux utiliser Ucase ou Lcase

Code:

---

Result = Lcase("TOTO") = lcase("tOtO") 'donne vrai

---

A tout hasard.