Discussion :

[Kalvin_20]

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 :

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

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

[Invité]

Bonjour

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

Essayes :

Code :

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

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

[Kalvin_20]

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

Code :

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

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

Merci à vous

[Invité]

Re

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

Starec

[Kalvin_20]

Voici ma declaration

Code :

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

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 :

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

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

[Invité]

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

[Kalvin_20]

Merci à vous Starec

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