mise à jour automatique entre Access et Excel

  • Initiateur de la discussion Initiateur de la discussion dirtyjs
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour