Bonjour à vous tous,
j'ai quelques tables dans Access que je veux transférer dans Excel pour ensuite automatiser une mise à jour entre celles-ci et le fichier Excel. Je suis assez débutant avec VBA, j'ai trouvé un code qui fonctionne relativement bien à part que la ligne contenant le nom des champs n'apparaît. Auriez-vous une solution?? Voici le code:

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
Sub Requete()
 
Dim bdd As Database, req As QueryDef, enr As Recordset
 
Set bdd = Workspaces(0).OpenDatabase("S:\RIT 2006\bd1.mdb")
 
sql = "SELECT * FROM IT_adhesion;"
 
Set enr = bdd.OpenRecordset(sql)
 
numberOfRows = Sheets("Feuil1").Cells(1, 1).CopyFromRecordset(enr)
 
enr.Close
bdd.Close
 
End Sub

Merci,

JS