1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub Macro1()
'
' Macro1 Macro
'
Dim enregis As DAO.Recordset, varSQL As DAO.Recordset, baseAccess As Database, feuille As Excel.Worksheet
Dim i As Integer
Set feuille = ThisWorkbook.Worksheets("Feuil1")
'On établi la connection avec la base Access
Set baseAccess = DBEngine.OpenDatabase("C:\Users\Admin\Documents\Base de données1.accdb")
Set enregis = baseAccess.OpenRecordset("Select * FROM Liste_clients")
Code_Post = 75013
Set varSQL = baseAccess.OpenRecordset("SELECT * FROM Liste_clients WHERE Code_Postal = Code_Post") |
Partager