Accueil > > > BASE DE DONNÉES ACCESS VERS EXCEL
BASE DE DONNÉES ACCESS VERS EXCEL
Information sur la source
Description
Avec ce code vous pourrez importer dans une nouvelle feuille d'un classeur EXCEL les données d'une base ACCESS. Il fait appel au modèle DAO ainsi qu'à la bibliothèque d'objets d'EXCEL. Pensez à les référencer dans le projet.
Source
- Option Explicit
- 'Vous devez avoir installé EXCEL sur votre ordinateur
- 'Ce code fait appel au modèle DAO ainsi qu'à la bibliothèque d'objet EXCEL
- 'Il ne faut pas oublier de les référencer dans le projet.
-
- Private Sub cmdBDAEXCEL_Click()
- Dim DBA As Database
- Dim Enreg As Recordset
- Dim Appli As New Application
- Dim Ligne As Long
-
- Dim stFichier As String
-
- If Right(App.Path, 1) = "\" Then
- stFichier = App.Path
- Else
- stFichier = App.Path + "\"
- End If
-
- 'Ouverture de la base de données "Depart75.mdb"
- Set DBA = OpenDatabase(stFichier + "Depart75.mdb")
-
- 'Ouverture des enregistrements de la table "Depart75"
- Set Enreg = DBA.OpenRecordset("SELECT Lieux, Latitude, Longitude FROM Depart75 ORDER BY Lieux ASC")
-
- Ligne = 1
- Appli.Visible = True
-
- 'Création d'un nouveau classeur EXCEL
- Appli.Workbooks.Add
-
- 'Feuille 1 du classeur EXCEL créé
- With Appli.ActiveWorkbook.Worksheets("feuil1")
-
- 'Premier enregistrement de la table "Depart75"
- Enreg.MoveFirst
-
- 'Ecriture dans le fichier "Depart75.xls" tant que la fin de la table "Depart75" n'est pas atteinte
- Do While Enreg.EOF = False
-
- ' Place le contenu du champ "Lieux" dans la 1ère colonne de la feuille EXCEL
- .Cells(Ligne, 1) = Enreg!Lieux
-
- ' Place le contenu du champ "Latitude" dans la 2ème colonne de la feuille EXCEL
- .Cells(Ligne, 2) = Enreg!Latitude
-
- ' Place le contenu du champ "Longitude" dans la 3ème colonne de la feuille EXCEL
- .Cells(Ligne, 3) = Enreg!Longitude
-
- ' Ligne suivante
- Ligne = Ligne + 1
-
- ' Enregistrement suivante
- Enreg.MoveNext
-
- Loop
-
- End With
-
- End Sub
-
Option Explicit
'Vous devez avoir installé EXCEL sur votre ordinateur
'Ce code fait appel au modèle DAO ainsi qu'à la bibliothèque d'objet EXCEL
'Il ne faut pas oublier de les référencer dans le projet.
Private Sub cmdBDAEXCEL_Click()
Dim DBA As Database
Dim Enreg As Recordset
Dim Appli As New Application
Dim Ligne As Long
Dim stFichier As String
If Right(App.Path, 1) = "\" Then
stFichier = App.Path
Else
stFichier = App.Path + "\"
End If
'Ouverture de la base de données "Depart75.mdb"
Set DBA = OpenDatabase(stFichier + "Depart75.mdb")
'Ouverture des enregistrements de la table "Depart75"
Set Enreg = DBA.OpenRecordset("SELECT Lieux, Latitude, Longitude FROM Depart75 ORDER BY Lieux ASC")
Ligne = 1
Appli.Visible = True
'Création d'un nouveau classeur EXCEL
Appli.Workbooks.Add
'Feuille 1 du classeur EXCEL créé
With Appli.ActiveWorkbook.Worksheets("feuil1")
'Premier enregistrement de la table "Depart75"
Enreg.MoveFirst
'Ecriture dans le fichier "Depart75.xls" tant que la fin de la table "Depart75" n'est pas atteinte
Do While Enreg.EOF = False
' Place le contenu du champ "Lieux" dans la 1ère colonne de la feuille EXCEL
.Cells(Ligne, 1) = Enreg!Lieux
' Place le contenu du champ "Latitude" dans la 2ème colonne de la feuille EXCEL
.Cells(Ligne, 2) = Enreg!Latitude
' Place le contenu du champ "Longitude" dans la 3ème colonne de la feuille EXCEL
.Cells(Ligne, 3) = Enreg!Longitude
' Ligne suivante
Ligne = Ligne + 1
' Enregistrement suivante
Enreg.MoveNext
Loop
End With
End Sub
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Copier un etat access vers Excel [ par Ol ]
Je voudrais copier un etat access (un tableau) vers Excel sans perdre la mise en page (ou le moins possible).Comment faire??
Env des infos d'access vers Excel [ par DVDNet ]
Alors, j'explique rapidement le but des opérations. Je voudrais envoyer le résultat d'une requète vers un fichier Excel (jusque là ça va;) puis ouvrir
exporter données access sous excel [ par gitan ]
Je voudrais basculer à partir d'un formulaire access qui saisi 2 dates, dans un tableur excel pour griser des cases qui correspondent aux jours entre
Enregistrement de données ACCESS via EXCEL [URGENT] [ par Metos ]
J aimerais savoir si il est possible d ouvrir une connextion ACCESS via VBA sous excel, afin que les données saisie par l'utilisateur via un userform
Connexion ADO de excel VERS ACCESS help !! :'( [ par Metos ]
Sub Connexion() Deconnexion 'Au cas ou ! Objconn.Open "PROVIDER=MSDASQL.1;DSN=" & "TestADO", UserId:="", Password:="" Quel est le Provider
Excel et Access [ par Christophe ]
Salut à tous,A partir de mon projet VB j'ai deux questions: Excel1)Je voudrai iconifier Excel à son ouverture, j'ai écrisExcel.Application
transfert de données de VBA vers ACCESS [ par pearl ]
j'ai créé une application excel et je voudrais récupérer les données résultant du traitement pour les inserer automatiquement dans une Table Access.En
Enregistrer des données sous Access... Par excel .. [Important] [ par Metos ]
Je desire faire un userform sous EXCEL et par une procedure VBA enregistrer les éléments saisie par l'utilisateur sous ACCESS.Merci
copier un tablo excel vers access [ par Michael ]
Comment faire pour copier un tableau excel sous accessExple :-------------------------------| ID | Prénom | Nom |-------------------------
copier un tablo excel vers access [ par Michael ]
Comment faire pour copier un tableau excel sous accessExple :-------------------------------| ID | Prénom | Nom |-------------------------
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|