Jointure ADO avec VBA Sql

Bonjour,

Je voudrais savoir si on peut SANS MicrosoftQuery faire des jointures
entre des feuilles Excel considérées comme des tables.

Code:

---

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

Sub testConnection() Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Dim slqstring As String test = ActiveWorkbook.Path Set cn = connectADO(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)   Set rs = New ADODB.Recordset sqlstring = "select Test1 from [Feuil1$A1:B100] as T1 join [Feuil2$] as T2 on T1.Test1=T2.Test3" rs.Open sqlstring, cn, adOpenDynamic, adLockOptimistic ActiveSheet.Range("C1").CopyFromRecordset rs End Sub

---

Mes en-tetes de colonnes sont Test1,Test2 et Test3 pour la feuille 2.

Pour ce code j'ai : Erreur de syntaxe dans la clause From. Et avec Where ce n'est pas plus concluant.

Merci de vos idées.

Bonjour.

Juste une précision : le champ Test1 n'existe que dans Feuil1?

PGZ

Oui Test1 n'existe que dans Feuil1.
Est ce que ca marcherait chez toi avec deux, trois datas ?
Ou peut être que c'est pas possible ...
Merci de ton retour.

Bonsoir.

J'ai fait un test avec 2 feuilles comme dans ta question.
Ceci marche

Code:

---

sSQL = "SELECT Test1 FROM [Feuil1$] as T1 INNER JOIN [Feuil2$] as T2 ON T1.Test1 = T2.Test3"

---

ET cela

Code:

---

sSQL = "SELECT Test1 FROM [Feuil1$] as T1 JOIN [Feuil2$] as T2 ON T1.Test1 = T2.Test3"

---

provoque l'erreur "erreur de syntaxe dans la clause FROM".

Moralité : il faut préciser le type de jointure "INNER JOIN", alors que je croyais que "INNER" facultatif, comme indiqué par exemple dans ce tuto de Frédéric BROUARD, mais apparemment, le mot clé n'est pas du tout facultatif.

Cordialement,

PGZ

Merci bien, je vais être équipé pour faire de la requête sur Excel.
(ca évite d'aller voir les équipes bureautiques pour se faire installer
Access avec un délai d'une semaine...)
Cool, j'avance.
Et bonne année.:ccool: