Execution d'une requete sous excel-debutant en excel

Bonjour à tous

Je suis debutant en excel, grace à la faq j'ai reussi à faire quelque manip en excel

la je dois executer une requete, j'ai une erreur au niveau de ma requete sql, je precise que requete1 est une grande requete que j'ai importé de ma base sur access voici mon code

Code:

---

1 2 3 4 5 6

Set db = CurrentDb() strSQL = "SELECT requete1.machine from requete1 where requete1.Année = Feuil4.Range("B3")" 'Erreur Set rs = db.OpenRecordset(strSQL)   rs.Fields(machine) = Feuil2.Range("B1") rs.MoveLast

---

Je vous demande votre aide svp

Bonjour

Il faut que tu sortes la feuille de ta requête.

Essayes :

Code:

---

strSQL = "SELECT machine from requete1 where Année =" & Feuil4.Range("B3")

---

Au cas où cela ne fonctionne pas Année est bien un numérique ou une vrai date, et le formatage ne fait apparaitre que l'année ?

Starec

merci de ton aide pour la requete c'est bon mais j'ai encor une petite erreur svp

Code:

---

1 2 3

Set db = CurrentDb() 'Erreur strSQL = "SELECT requete1.machine from requete1 where requete1.Année =" & Feuil4.Range("B3") Set rs = db.OpenRecordset(strSQL)

---

Erreur : function ou sub non definie

j'ai activé le DAO.

et j'ai aucune idée parceque je travail normalment sur access mais pas j'ai pas trop le choix :roll:

Merci à vous

Re

Sur quelle ligne est l'erreur ? Comment as-tu déclaré tes variables ?

Starec

Voici ma declaration

Code:

---

1 2 3 4 5

Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim myCount As Integer Dim rsCount As Integer

---

et l 'erreur c'esut sir le db = CurrentDb()

sinon j'ai essayé sa aussi

Code:

---

1 2	strSQL = "SELECT requete1.machine from requete1 where requete1.Année =" & Feuil4.Range("B3") Set rs = CurrentDb.OpenRecordset(strSQL) 'Erreur

---

Merci à vous d 'avance

Bonjour

C'est normal, tu es sous Excel et non sous Access (je n'ai pas tilté tout de suite, car je navigues sur plusieurs forums à la fois).

Si j'ai bien compris ce que tu veux faire, cet article de la :faq: Excel devrait t'aider : Comment importer les données d'une table Access dans la feuille de calcul ?

Tu y verras comment remplacer le CurrentDB.

Starec

Bon voila j'ai un peu changé d'algo mais pas grave

au debut j'avais importé requete1 par MS Query de ma base de données avec tous les champs que j'utiliserai et l'idée c'étais de la découper en petite requete.

alors que la j'execute directement la requete dans ma base seulement voila sa ma générer une nouvelle erreur comme quoi le resultat etait seulement en lecture seul et que je peux pas l'ecrir dans ma case merci de me proposer une solution

mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim myCount As Integer Dim rsCount As Integer   Set db = DAO.OpenDatabase("m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\Suivie de Production.mdb", False, False) strSQL = "SELECT tableau.machine from tableau where tableau.Année LIKE " & Feuil4.Range("B3") Set rs = db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)     rs.Fields(0) = Feuil2.Range("B1").Value 'Erreur rs est en lecture seul

---

Merci à vous

Re

Citation:

---

Envoyé par Kalvin_20

alors que la j'execute directement la requete dans ma base seulement voila sa ma générer une nouvelle erreur comme quoi le resultat etait seulement en lecture seul et que je peux pas l'ecrir dans ma case merci de me proposer une solution

---

:koi: Ici

Code:

---

1 2	rs.Fields(0) = Feuil2.Range("B1").Value 'Erreur rs est en lecture seul

---

tu veux écrire dans le champ la donnée qui est dans la cellule B1, ce serait pas plutôt l'inverse, affecter la valeur du champ à la cellule B1 ?

Starec

Merci à vous Starec :king:

ça ira plus vite maintenant normalement j'ai plusieur requete de ce genre à faire merci encor