dirtyjs
XLDnaute Nouveau
Bonjour à tous,
j'ai une BD Access contenant plusieurs table et je dois en exporter quelques unes dans Excel périodiquement. Or, j'ai fait un petit programme qui peut afficher la table dans mon fichier Excel, le problème est que le nom des champs n'apparaît pas et j'aimerais que le code s'exécute lorsque je mets à jour mes données dans Access. Voici le code :
Private Sub Worksheet_Requete()
Dim bdd As Database, req As QueryDef, enr As Recordset
Set bdd = Workspaces(0).OpenDatabase("S:\Equipe Vente et Intégration\Monique\RIT 2006\bd1.mdb")
sql = "SELECT * FROM IT_adhesion_test;"
Set enr = bdd.OpenRecordset(sql)
numberOfRows = Sheets("Feuil1").Cells(1, 1).CopyFromRecordset(enr)
enr.Close
bdd.Close
End Sub
merci,
JS
j'ai une BD Access contenant plusieurs table et je dois en exporter quelques unes dans Excel périodiquement. Or, j'ai fait un petit programme qui peut afficher la table dans mon fichier Excel, le problème est que le nom des champs n'apparaît pas et j'aimerais que le code s'exécute lorsque je mets à jour mes données dans Access. Voici le code :
Private Sub Worksheet_Requete()
Dim bdd As Database, req As QueryDef, enr As Recordset
Set bdd = Workspaces(0).OpenDatabase("S:\Equipe Vente et Intégration\Monique\RIT 2006\bd1.mdb")
sql = "SELECT * FROM IT_adhesion_test;"
Set enr = bdd.OpenRecordset(sql)
numberOfRows = Sheets("Feuil1").Cells(1, 1).CopyFromRecordset(enr)
enr.Close
bdd.Close
End Sub
merci,
JS