Inner Join 2 fichiers EXCEL

Version imprimable

Bonjour,

Je souhaite réaliser une jointure sur le champ ID entre 2 fichiers xls distincts, en utilisant en vba une connexion Microsoft.ACE.OLEDB.

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
37
38
 
    Dim strConnection As String
    Dim strQuery As String
    Dim objConnection As Object
    Dim objRecordSet As Object
 
    strConnection = _
        "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "User ID=Admin;" & _
        "Data Source='" & ThisWorkbook.FullName & "';" & _
        "Mode=Read;" & _
        "Extended Properties=""Excel 12.0 Macro;"";"
 
Fichier1 = "c:\1.xls"
Fichier2 = "c:\2.xls"
 
    strQuery = "SELECT [Fichier1].[Utilisateur$].[id], [Fichier1].[Utilisateur$].[Nom], [Fichier2].[commande$].[Quantité]" & _
"FROM [Utilisateur$] INNER JOIN [commande$] ON [Utilisateur$].[id] = [commande$].[id] "
 
 
 
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open strConnection
    Set objRecordSet = objConnection.Execute(strQuery)
 
 
    Dim i As Long
 
    With objSheet
        Sheets("Test").Cells.Delete
        For i = 1 To objRecordSet.Fields.Count
            Sheets("Test").Cells(1, i).Value = objRecordSet.Fields(i - 1).Name
        Next
        Sheets("Test").Cells(2, 1).CopyFromRecordset objRecordSet
        Sheets("Test").Cells.Columns.AutoFit
    End With
 
    objConnection.Close

Je n'arrive pas à écrire la requête en intégrant l'adresse des fichiers c:\1.xls c:\2.xls dans :

Code:

strQuery = "SELECT [Fichier1].[Utilisateur$].[id], [Fichier1].[Utilisateur$].[Nom], [Fichier2].[commande$].[Quantité] FROM [Utilisateur$] INNER JOIN [commande$] ON [Utilisateur$].[id] = [commande$].[id] "

Pouvez-vous m'aider. Merci
Cdlt

14/11/2017, 01h40
kiki29

Salut, de la lecture : Comprendre les Recordset ADO
14/11/2017, 07h42
Invité

Bonjour,
Cet exemple est dans Access mais avec Excel c'est pareil!

https://www.developpez.net/forums/d1...t/#post9666110

Bonjour,

Merci de vos retours.
J'ai déjà parcouru le net et utilisé des exemples et autres informations, mais mon point de blocage concerne l'ecriture du "sql" pour la jointure de 2 fichiers indépendants.

Je m'explique :

l'exemple de dysorthographie indique :

Code:

select * from (Select * from [Feuil1$] in 'C:\rep\Classeur1.xls' 'Excel 12.0;HDR=Yes')

J'ai essayé ça fonctionne, mais si j'ai 2 sources de données (2 fichiers excel) et que je souhaite faire unn Inner JOIn, je n'arrive par à écrire un code "Select ...." qui fonctionne.

j'ai essayé de transcrire, mais je ne vois pas la syntaxe :
Code:

1 2 strQuery = "SELECT [Utilisateur$].[id] in 'C:\1.xls' 'Excel 12.0;HDR=Yes', [Utilisateur$].[Nom] in 'C:\1.xls' 'Excel 12.0;HDR=Yes', [commande$].[Quantité] in 'C:\2.xls' 'Excel 12.0;HDR=Yes'" & _ "FROM [Utilisateur$] in 'C:\2.xls' 'Excel 12.0;HDR=Yes'" INNER JOIN [commande$] ON [Utilisateur$].[id] = [commande$].[id] "
Cdlt

XLS1 est lié à ta connexion donc pas besoin de in!

XLS2 c'est un sous requête!
bref requête inner join Sous requête!

Code:

(select * from [commande$] as XLS2 in 'C:\2.xls' 'Excel 12.0;HDR=Yes' )

Code:

1
2
3
4
5
6
7
8
9
Sub test()
With CreateObject("ADODB.Connection")
   .Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    trQuery = "SELECT [Xls1].[id],[Xls1].[Nom],[Xls2].[Quantité] " & _
    "FROM [Utilisateur$] as Xls1 INNER JOIN (select * from [commande$]  as XLS2 in 'C:\2.xls' 'Excel 12.0;HDR=Yes' ) ON [Xls1].[id] = [Xls2].[id] "
 Set Rs = .Execute(trQuery)
 .Close
 End With
End Sub

select [chapms] from (Sous Requête1) inner join (Sous reqête2) on etc...

Code:

1
2
rQuery = "SELECT [Xls1].[id],[Xls1].[Nom],[Xls2].[Quantité] " & _
    "FROM (select * from  [Utilisateur$] as  Xls1 in 'C:\1.xls' 'Excel 12.0;HDR=Yes' ) INNER JOIN (select * from [commande$]  as XLS2 in 'C:\2.xls' 'Excel 12.0;HDR=Yes' )ON [Xls1].[id] = [Xls2].[id] "

Bonjour,

Merci beaucoup pour ce retour ;-)

Lors de l'utilisation de ton code avec 2 jointures, il m'indique "Erreur de syntaxe dans l'opération JOIN"
Code:

1 2 rQuery = "SELECT [Xls1].[id],[Xls1].[Nom],[Xls2].[Quantité] " & _ "FROM (select * from [Utilisateur$] as Xls1 in 'C:\1.xls' 'Excel 12.0;HDR=Yes' ) INNER JOIN (select * from [commande$] as Xls2 in 'C:\2.xls' 'Excel 12.0;HDR=Yes' )ON [Xls1].[id] = [Xls2].[id] "
J'ai rebalayé le code (verif : espace, ', " ) je ne vois pas d’erreur de syntaxe ??

Cdlt

voila la requête que j'ai testé chez moi et qui fonctionne!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub TEST()
Sql = "select * from  (Select * from [Feuil2$]   in 'C:\MyRepertoire2\Classeur1.xlsm' 'Excel 12.0;HDR=Yes') as xls1 inner join  (Select * from [Feuil3$]  in 'C:\MyRepertoire2\Classeur1.xlsm' 'Excel 12.0;HDR=Yes') as xls2 on xls2.A=xls1.A"
With CreateObject("ADODB.Connection")
   .Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
 Set Rs = .Execute(Sql)
 .Close
 End With
 
 
End Sub

Code:

1
2
rQuery = "SELECT [Xls1].[id],[Xls1].[Nom],[Xls2].[Quantité] " & _
"FROM (select * from  [Utilisateur$]  in 'C:\1.xls' 'Excel 12.0;HDR=Yes' ) as Xls1 INNER JOIN (select * from [commande$]  in 'C:\2.xls' 'Excel 12.0;HDR=Yes' ) as Xls2 ON [Xls1].[id] = [Xls2].[id] "

14/11/2017, 22h25
Hoby1-128

Ton dernier code fonctionne. Merci dysorthographie;)
21/11/2019, 15h44
informer

Citation:

Envoyé par Invité

voila la requête que j'ai testé chez moi et qui fonctionne!

Merci pour le code