1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub Commande0_Click()
Dim Db1 As Database
Dim Rs1 As Recordset
' Ouverture de la base de données
Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\bd3.mdb")
' Ouverture de la table Factures
' Un objet Recordset représente les enregistrements d'une table
Set Rs1 = Db1.OpenRecordset(Name:="Export", Type:=dbOpenSnapshot)
' Effacement des données existantes dans la WorkSheet (sauf les titres)
' et copie des enregistrements
With ThisWorkbook.Worksheets("Classeur1").Range("A2")
With Selection.CurrentRegion
ThisWorkbook.Intersect(.Cells, .Offset(1)).Select
End With
Selection.ClearContents
.CopyFromRecordset Rs1
End With
'Fermeture de la Base de données
Db1.Close |
