Extraire une table access

Version imprimable

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:

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.

03/08/2020, 14h21
Ben_L

Bonjour,

Si vous souhaitez obtenir le même résultat qu'à l'aide d'une commande "manuelle", pourquoi ne pas utiliser l'enregistreur de macros ?

De plus, préciser le type d'importation que vous souhaitez (sous forme de tableau, de rapport de TCD, de TCD, etc.) serait d'une grande utilité pour les personnes susceptibles de vous aider.

Cdt
03/08/2020, 14h33
21vince

Bonjour, ce que je veux faire c est de récupérer ses données pour par la suite affecter le résultat dans des plages précises dans excel pour réaliser u état comme dans access.

Pour récupérer toutes les données de la table "T_Personnel" et les stocker dans l'onglet "Extract" :

Code:

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
26
27
28
29
30
31
32
33
34
Sub Extract_Data()
    Dim Conn As New Connection, Rec As New Recordset
    Dim DbPath, Prvd, ConnString, Query As String, i As Integer, nRow As Long
 
    DbPath = "C:\Users\*****\Desktop\***************.accdb"
    Prvd = "Microsoft.ace.OLEDB.12.0;"
    ConnString = "Provider=" & Prvd & "Data Source=" & DbPath
    Query = "SELECT * FROM T_Personnel;"
    Conn.Open ConnString
    Rec.Open Query, Conn
    Application.ScreenUpdating = False
    With ThisWorkbook.Sheets("Extract")
        .Cells.ClearContents
        If (Rec.RecordCount <> 0) Then
            nRow = 2
            If Not Rec.EOF Then
                For i = 0 To Rec.Fields.Count - 1
                    .Cells(1, i + 1).Value = Rec.Fields.Item(i).Name
                Next i
            End If
            Do While Not Rec.EOF
                For i = 0 To Rec.Fields.Count - 1
                    .Cells(nRow, i + 1).Value = Rec.Fields.Item(i).Value
                Next i
                DoEvents
                nRow = nRow + 1
                Rec.MoveNext
            Loop
        End If
    End With
    Application.ScreenUpdating = True
    Rec.Close
    Conn.Close
End Sub

En ajoutant bien sur la référence à "Microsoft ActiveX Data Objects 6.1 Library".

03/08/2020, 15h15
Thumb down

Bonjour,
Tu penses qu'il nous appartient d'otopcier ton code ou tu vas nous dire ce qui ne vas pas?
Utilises Range("A1").CopyFromRecordset cn.execute(SQL)
03/08/2020, 15h57
21vince

Merci Ben_L :D