Bonjour je souhaite extraire les données d une table access par code VBA mais je n'y arrive pas, je souhaiterais avoir le même résultat quand faisant dans excel "donnée,données externes à partir d un fichier access". Voici le début de mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 Sub Connexion()
 
    Dim cnx As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rst As New ADODB.Recordset
    Dim resultat()
 
    cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\*****\Desktop\***************.accdb;Persist Security Info=False;"
 
    Set cmd.ActiveConnection = cnx
 
    cmd.CommandType = adCmdTable
    'cmd.CommandText = "Select * From T_Personnel"
    cmd.CommandText = "T_Personnel"
    Set rst = cmd.Execute
    Do Until rst.EOF
    resultat = rst.GetRows
    rst.MoveNext
    'Debug.Print rst("Classement") & " " & rst("Nom") & " " & rst("Prenom")
    Loop
    rst.Requery
 
    Me.Range("A1") = resultat
 
End Sub
Merci de votre aide.