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
Partager