Jointure entre un fichier Excel et deux tables SQL Server EN VB

Bonsoir,
Je vais entrer directement dans le sujet :
J’ai un fichier Excel avec 5 colonnes :

Fichier :
Col_A| Col_B| Col_C| Col_D| Col_E|

J’ai deux tables SQL Server (2005) :


Tab1 :
Col_a1| Col_b1| Col_c1| Col_d1| Col_e1|….


Tab2 :
Col_a2| Col_b2| Col_c2| Col_d2| Col_e2|….


Je veux avoir en sortie

Fichier :
Col_A| Col_B| Col_C| Col_D| Col_E| Col_F

Donc je rajoute une colonne a mon fichier initiale (Col_F), mais d’abord il faut faire une jointure sur la colonne C soit avec la Tab1 (Col_c1) et donc récupérer la ligne qui correspondant, de la colonne Col_e1 ou bien la Tab2 et récupérer la donnée de la colonne Col_e2.

Et le tout en VB :)

Je ne sais pas par où commencer !! Toute idée est la bienvenue.

Bonjour,

Code:

---

1 2	Select Col_e1,Col_e2 FROM Tab1,Tab2

---

pour l'ajout d'une colonne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub AddListColumn() Dim wrksht As Worksheet Dim objListCol As ListColumn Dim i, total_ligne As Integer   Set wrksht = ActiveWorkbook.Worksheets("Mysheet")   Set objListCol = wrksht.ListObjects(1).ListColumns.Add   objListCol.Name = "Rang"   total_ligne = wrksht.ListObjects(1).ListRows.Count   For i = 1 To total_ligne wrksht.Cells(i + 1, "Rang") = i + 1   Next i   End Sub

---