importer des données de access a excel

[soben20]

Bonjour,
je viens de commencer un travail
Dans le cadre de mon travail je dois faire un programme sur vba qui va chercher des données precises de access a excel.
par exempe, en entrant le numero du contrat, j'aimerais aller chercher dans la base de donnée de access une la valeur correspondant au numero du contrat
par exemple la troisieme colonne.
alors je me demande : est-il possible de faire cela
si c oui comment pourais je proceder
merci d'avance 🙂

 

[Pierrot93]

Re : importer des données de access a excel

Bonjour Soben

regarde dans la FAQ, les pages de MichelXLD🙂,

https://www.excel-downloads.com/thr...iltres-variables-fichiers-fermes-acces.92374/

en autre, la rubrique :
Piloter les fichiers fermés (Excel , Access ,les fichiers DBF)

cela devrait te permettre d'avancer...

bonne journée
@+

 

[BOISGONTIER]

Re : importer des données de access a excel

Bonjour,

Liens Access/Excel

JB

 

[poulpor78]

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.

 

[soben20]

Re : importer des données de access a excel

merci pour tous ces renseignements
je vais regarder cela