Probleme avec une requete SQL

Bonjour,
J'ai un petit souci je cherche à executer une requète SQL dans Excel en VBA.
J'ai dans ma feuille ERT une colonne Name pour laquelle je voudrais faire une recherche.
J'ai obtenu une fois ce que je voulais mais j'ai fait une modification et ça ne fonctionne plus, je sais plus comment j'ai fait pour la faire fonctionner.

J'obtiens erreur 3061 - Erreur définie par l'application ou par l'objet

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub DoCmdRunSQL(ByVal sql As String, ByVal rDest As Range)   Dim db As DAO.Database Dim rs As DAO.Recordset   Set db = DAO.OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel   8.0;HDR=YES;") Set rs = db.OpenRecordset(sql, DAO.dbOpenSnapshot) rDest.CopyFromRecordset rs Set rs = Nothing Set db = Nothing   End Sub Sub test() DoCmdRunSQL "SELECT * FROM [ERT$] WHERE Name='toto'", Sheets("Résultat").Range("A1") End Sub

---

Pourriez-vous m'aider ?
D'avance merci

ça c'est pas du SQL et ton erreur est là!

Code:

---

DoCmdRunSQL "SELECT * FROM [ERT$] WHERE Name='toto'", Sheets("Résultat").Range("A1")

---

ça c'est OK

Code:

---

1 2	DoCmdRunSQL "SELECT * FROM [ERT$] WHERE Name='toto';" DoCmdRunSQL "SELECT * FROM [ERT$] WHERE Name='toto' OR Name='" & Sheets("Résultat").Range("A1") & "';"

---

D'abord je voudrais vous remercier pour votre aide.
Votre proposition ne fonctionne pas non plus.

Je pense que c'est WHERE Name='toto' qui pose problème, si je fais DoCmdRunSQL "SELECT * FROM [ERT$], Sheets("Résultat").Range("A1")
le résultat de ma "requète" s'affiche très bien dans ma feuille Résultat

ce que tu écris là

Code:

---

"SELECT * FROM [ERT$], Sheets("Résultat").Range("A1")

---

revient à faire une requête avec 2 tables.

Code:

---

SELECT * FROM Table1, Table2;

---

Comment fais tu le lien entre les table?

Code:

---

SELECT * FROM Table1 INNER JOIN Table2 ON Table1.Id = Table2.Id;

---

et enfin ta close Where

Code:

---

SELECT * FROM Table1 INNER JOIN Table2 ON Table1.Id = Table2.Id WHERE Table1.Champ1='toto';

---

tu trouveras le résumé de tous ça en images jointent.

Désolé mais je ne cherche pas à faire une requète sur deux tables,

Code:

---

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

Sub DoCmdRunSQL(ByVal sql As String, ByVal rDest As Range)   Dim db As DAO.Database Dim rs As DAO.Recordset   Set db = DAO.OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel 8.0;HDR=YES;") Set rs = db.OpenRecordset(sql, DAO.dbOpenSnapshot) rDest.CopyFromRecordset rs Set rs = Nothing Set db = Nothing   End Sub Sub test() DoCmdRunSQL "SELECT * FROM [ERT$] WHERE Name='toto'", Sheets("Résultat").Range("A1") End Sub

---

Dans ma fonction DoCmdRunSQL() mon 2ème arguments (ByVal rDest As Range) indique l'emplacement de l'affichage de mes résultats.

Name est un mot réservé il faut préciser qu'il s'agit de [champ]!

Code:

---

DoCmdRunSQL "SELECT * FROM [ERT$] where [Name]='TOTO';", Sheets("Résultat").Range("A1")

---

si tu encadre toujours tes champ par "[XXXX]" tu n'auras jamais de problème à ce niveau du moins!

Non plus j'obtiens le message

Erreur d'execution '3061' :
Trop peu de paramètres. 1 attendu

J'ai l'impression que c'est le nommage des champs qui pose problème.

j'a fais un test il fonctionne nickel; bien sur il faut que le fichier soit enregistré si non ça plante.

Merci encore de consacrer votre temps à la résolution de mon problème.
En fait, après plusieurs tests je me suis rendu compte d'une chose hallucinante le fait d'ajouter des lignes et des colonnes au dessus et à coté de mon tableau ça fait planter ma requête !!
Ma requète est juste depuis le début, pourquoi à votre avis cela pose un problème ?

place ton fichier Excel avec que les entête pas le contenu.