Discussion :

[sql_bin]

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.

[geegee13]

Bonjour,

Code SQL :

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

1
2
Select Col_e1,Col_e2
FROM Tab1,Tab2

pour l'ajout d'une colonne :

Code :

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

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