Discussion :

[efo007]

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 :

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

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

[Invité]

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

Code SQL :

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

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

ça c'est OK

Code SQL :

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

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

[efo007]

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

[Invité]

ce que tu écris là

Code SQL :

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

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

revient à faire une requête avec 2 tables.

Code SQL :

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

SELECT * FROM Table1, Table2;

Comment fais tu le lien entre les table?

Code :

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

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

et enfin ta close Where

Code :

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

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.

[efo007]

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

Code :

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

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.

[Invité]

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

Code :

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

 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!