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]

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 :

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

[Invité]

Re

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

Ici

Code :

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

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

[Kalvin_20]

Merci à vous Starec

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