Re : importer des données de access a excel
Bonjour,
Les liens donnés sont vraiment bien documentés. Par contre, si je puis appuyer les experts, sache que ce n'est pas si compliqué à utiliser. J'ai trainé avant d'utiliser ces fonctions pour les utiliser mais c'est au final accessible :
1/ J'ouvre access
2/ Je crée ma requête sous forme d'une variable chaine
3/ je crée la requête (query) utilisant la variable chaine
4/ J'ouvre le recordset du query
5/ Je bosse dans le query
6/ Je ferme le recordset, le query et la base
Exemple de recherche de code postal à partir d'un nom de ville :
Option Explicit
Public Const Mdbsource = "Q:\com-ges\RECAP\CPNew.mdb"
Sub TrouveCP()
Dim Basesource As Database
Dim Trouve, MySql As String
Dim QueryMag As QueryDef
Dim MaSelection As Recordset
Trouve = Cells(1, 1).Value
Set Basesource = DBEngine.Workspaces(0).OpenDatabase(Mdbsource)
MySql = "SELECT VILLES.NOM_VILLE, VILLES.DPT FROM VILLES WHERE VILLES.NOM_VILLE=""" & Trouve & """;"
' Debug.Print MySql
Set QueryMag = Basesource.CreateQueryDef("", MySql)
Set MaSelection = QueryMag.OpenRecordset()
Cells(1, 2).Value = MaSelection("DPT")
QueryMag.Close
Set QueryMag = Nothing
Basesource.Close
Set Basesource = Nothing
End Sub
Commentaires :
- il faut aller dans outils\References et cocher Microsoft DAO 3.6
- les triples guillemets sont nécessaires pour des variables de type chaine
- pour les non experts du SQL, le debug.print Mysql permet de copier-coller le SQL généré directement dans un reqête vierge dans Access pour tester la requête
Bon courage à toi.