Code VBA pour exporter des données Access vers Excel

Code VBA pour exporter des données Access vers Excel
Table des matières

Exporter des données Access vers Excel en utilisant VBA (avec images et code)

Qu'est-ce que c'est ?

Ce code VBA vous aide à exporter des données en Accès Table vers Excel en un seul clic.

Pourquoi ?

Vous pouvez télécharger ou exporter les données Access vers Excel sans même ouvrir le classeur Excel.

Comment exporter des données Access vers Excel

Étape 1 : Ouvrez la base de données Access et accédez à Code VBA constructeur (Alt + F11) et ouvrez un nouveau module.


Exporter des données Access vers ExcelPin

Étape 2: Copiez et collez le code ci-dessous.

				
					Sub exportToXl()

En cas d'erreur GoTo ErrorHandler

Dim dbTable As String

Dim xlWorksheetPath As String

xlWorksheetPath = "C:\" 'Mentionner le chemin du xlWorkbook

xlWorksheetPath = xlWorksheetPath & "xlWorkbookName.xlsx" 'Remplacez 'xlWorkbookName.xlsx' par le nom de votre classeur

dbTable = "tblMaster" 'Remplacez 'tblMaster' par la table de la base de données Access à partir de laquelle vous souhaitez exporter les données.

DoCmd.TransferSpreadsheet transfertype:=acExport, spreadsheettype:=acSpreadsheetTypeExcel12, tablename:=dbTable, FileName:=xlWorksheetPath, hasfieldnames:=True

ErrorHandlerExit :

Exit Sub

ErrorHandler :

MsgBox "Error No : " & Err.Number & ";Description : " & Err.Description

Reprendre ErrorHandlerExit

End Sub
				
			

Étape 3: Cliquez sur le bouton Exécuter ou sur F5 ou sur le bouton Commande auquel vous avez associé ce code !

Si vous assignez le code à un bouton de commande, assurez-vous que le code se trouve dans le sous-événement privé/public Sub_Event() ; Quelque chose comme ce qui suit

Private Sub exportToXl_Click()

Exporter des données Access vers Excel

Les enregistrements de la base de données Access ont été téléchargés avec succès dans Excel. Ouvrez votre classeur Excel et vérifiez les données.

Remarque : Assurez-vous que l'option "Microsoft ActiveX Data Objects Library" est activée dans l'écran d'accueil. Outils – Références (utilisez la dernière version [6.1 à partir de cet article]).

Exporter des données Access vers Excel_AdodbPin

Je suis sûr que vous travaillez sur de nombreuses données Excel, MS Access et VBA. Fortement Nous vous recommandons de vous joindre à l'Ultimate Excel VBA Userform avec Access Database ! C'est un investissement qui en vaut la peine ! FAITES-LE MAINTENANT !

Construisez votre propre programme du monde réel, apprenez le vrai Excel VBA (Macros), dépassez les limites d'Excel avec un projet complet.

Picture of Anson Antony
Anson Antoine
Anson est auteur collaborateur et fondateur de www.askeygeek.com. Apprendre quelque chose de nouveau a toujours été sa passion, ASKEYGEEK.com est le résultat de sa passion pour la technologie et les affaires. Il possède une décennie d'expérience polyvalente dans l'externalisation des processus métiers, la finance et la comptabilité, les technologies de l'information, l'excellence opérationnelle et la business intelligence. Au cours de son mandat, il a travaillé pour des organisations telles que Genpact, Hewlett Packard, M*Modal et Capgemini dans divers rôles et responsabilités. En dehors des affaires et de la technologie, c'est un cinéphile qui passe des heures ensemble à regarder et à apprendre le cinéma et un cinéaste aussi !

2 réponses

  1. Merci pour le code vba. Mais il a fonctionné pour une fois. J'obtiens l'erreur suivante "Error no. 3027. Impossible de mettre à jour. La base de données ou l'objet est en lecture seule

  2. Je souhaite ajouter des données à la feuille de calcul tous les mois. Les données doivent être présentées dans un format spécifique. Je pensais qu'il existait une commande avec des arguments ligne/colonne. J'ai déjà utilisé un espace de travail pour parcourir les enregistrements en saisissant l'adresse de la cellule. Merci de votre compréhension.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Toutes nos félicitations!
Tu l'as fait,
Ne fermez pas !

Accès UberCreate Creator Pro
gratuitement!!!

Cette fenêtre contextuelle ne montrera pas à toi de voir encore!!!

Share to...