Connexion à une base Access via VBA Excel

Question

Bonjour,

J'espère que vous allez bien, j'ai un projet Excel que je dois réaliser en important des résultats dynamiques à partir d'une base de données Access, Est que quelqu'un peut-il m'aider (par un exemple) à créer la connexion et exécuter une requête de sélection, c'est urgent SVP. Merci d'avance.

Polux31 · Answer

Bonjour,

https://www.connectionstrings.com/

Alaedjens · Answer

Bonjour,
Merci Polux, Pourtant j'ai trouvé un exemple :

Avant toute chose, il faut activer les références Microsoft Access XX.X Object Library, et Microsoft DAO X.X Object Library dans l'éditeur Visual Basic.
Ensuite on essaie d'écrire le code suivant :
Sub exemple()
 
Dim enregis As DAO.Recordset, baseAccess As Database, feuille As Excel.Worksheet
Dim i As Integer
 
'On considère que le code est écrit dans le classeur Fiche.xls
Set feuille = ThisWorkbook.Worksheets("methode")
'On établi la connection avec la fameuse base Access
Set baseAccess = DBEngine.OpenDatabase("c:\fiche_access.mdb")
'On "récupère" une représentation exploitable de la table article via un objet Recordset
Set enregis = baseAccess.OpenRecordset("Select * FROM article")
 
'On renseigne tous les enregistrements de la table article à partir de la deuxième
'ligne de la feuille méthode
i = 2
Do
    feuille.Range("A" & i) = enregis("code_article")
    feuille.Range("B" & i) = enregis("libelle")
    feuille.Range("C" & i) = enregis("qte")
    feuille.Range("D" & i) = enregis("prix")
    i = i + 1
    enregis.MoveNext
Loop Until enregis.EOF
'On ferme la connection du recordset
enregis.Close
 
'On ferme la connection avec la base Access...
baseAccess.Close
 
'On fait un peu de ménage...
Set feuille = Nothing
Set enregis = Nothing
Set baseAccess = Nothing
 
End Sub

Connexion à une base Access via VBA Excel

2 réponses

Votre réponse

Discussions similaires