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