Bonjour,

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


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.