Discussion :

[comme de bien entendu]

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.

[pgz]

Bonjour.

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

PGZ

[comme de bien entendu]

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.

[pgz]

Bonsoir.

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

Code :

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

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

ET cela

Code :

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

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

[comme de bien entendu]

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.