comment faire une Jointure SQL en excel VBA
Bonjour,
J'ai fait une macro en vba qui importe des données( colonne:plaque et colonne :statut) contant d'une base access vers mon fichier excel,par ailleur je ne trouve comment faire une jointure sur une autre table de la même base access pour récuprer la colonne région.
Merci d'avance
Cordialement,
voici le code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub Bouton23_Clic()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String
Dim strSQL1 As String
Set Db = DAO.OpenDatabase("p:\document\Gateway OPTIM 3G\Gateway OPTIM 3G.mdb", False, False)
strSQL = "SELECT Plaque,Statut FROM [Statut Plaques] "
strSQL1 = "SELECT Plaque FROM [REFERENTIEL SUIVI OPTIM PLAQUE] "
Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
Feuil3.Range("AC4").CopyFromRecordset Rs
Db.Close
End Sub |