SQL Excel: Erreur d'exécution '-2147217865(80040e37)'

Bonjour à tous,

j'essaie de me connecter à une base de données excel via vba avec les requetes sql; mais j'ai un message d'erreur qui s'affiche:


Erreur d'exécution '-2147217865(80040e37)':
Le moteur de base de données Microsoft Access n'a pas pu trouver l'objet Table. Vérifiez qu'il existe et que vous avez correctement entré son nom et son chemin d'accès. Si Table n'est pas un objet local, verifiez la connexion réseau, ou contactez l'administrateur du serveur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Option Explicit Public Const Fld_DB = "chemin" Public Const Name_DB= "NomFichier.xlsx" Public Const Fld_DBL = Fld_DB & Name_DB Public Const DB_Connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Fld_DBL   Sub test() Dim tp As Variant   tp = Xls_SqlLoader(DB_Connect)   End Sub   Public Function Xls_SqlLoader(ByVal strConnection As String) As Variant   Dim rst As ADODB.Recordset Dim Cn As ADODB.Connection Dim Sql_Tx As String   '--- Connection --- Set Cn = New ADODB.Connection With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = strConnection & ";Extended Properties=""Excel 12.0; HDR=YES""" .Open End With   Sql_Tx = "SELECT NomTable1, NomTable2 from FUNDS WHERE NomTable1= 'Bidule' "   Set rst = New ADODB.Recordset   Set rst = Cn.Execute(Sql_Tx)   Xls_SqlLoader = 0 Cn.Close End Function

---

SVP j'ai besoin d'aide je ne comprends pas du tout pourquoi mon code ne marche pas.

Merci d'avance.

Bonjour,

Commence par ce qui est le plus simple (si ce n'est pas déjà fait).

Dans ton classeur Excel, donne le nom de Table à ta plage de données, comme tu le ferais pour ajouter n'importe quel autre nom dans Excel.

P.S. À l'avenir, ce serait très apprécie que tu balises ton code. Tu le sélectionnes et tu cliques sur le dièse (#)

Bonjour oui désolé pour le code;

Mais j'ai déjà essayé ta solution

Salut.

Il faut déjà vérifier le chemin et le nom de ton fichier, car avec l'exemple que tu donnes, ça ne saurait fonctionner.

Il faudrait insérer un \ entre le chemin et le nom du fichier, sauf si FLD_DB se termine déjà par \...

Si tu utilises le nom de la feuille comme nom de table, Excel exige que tu l'encadre avec des crochets et tu dois utiliser le signe $.

Si ta feuille se nomme FUNDS, tu dois utiliser ... from [FUNDS$] WHERE ...

Je me doute que les noms employés sont "bidon", mais NomTable1 comme nom de champ, c'est tout sauf limpide.

J'ajouterai que Public Const Fld_DBL = Fld_DB & Name_DB, même si ça passe, ça me fait tiquer.

Bref, si tu souhaites que l'on t'aide dans un truc aussi délicat que du SQL sur Excel, il faut donner le code EXACT que tu utilises, sans cela nous ne pourrons t'aider.

N'hésite pas à te documenter en lisant ce tutoriel de SilkyRoad sur le sujet.

Bonjour,
Comme la préciser Pierre, la table encadrée [], et avec $ à la fin!

Code:

---

1 2 3 4 5

Sql_Tx = "SELECT NomTable1, NomTable2 from [FUNDS$] WHERE NomTable1= 'Bidule' "   Set rst = New ADODB.Recordset   rst.open Sql_Tx,cn

---