Vba Excel récupérer table access dans dictionary. Possible / efficacité ?

Version imprimable

26/06/2019, 21h54
mfoxy

Vba Excel récupérer table access dans dictionary. Possible / efficacité ?

Hello,

Une "petite" question je souhaiterais, dans la mesure du possible récupérer une table access dans mon fichier excel.
Jusque là pas de soucis.

Mon idée, pour laquelle votre aide me serait précieuse :

Pour m éviter de retraiter le table collecté : filtre , tris, suppression de ligne...
J avais imaginer pouvoir le faire avant l "écriture" de la table dans excel.

Pour cela passer mes records dans un dictionnaire et "retravailler" la table directement en mémoire,avant son insertion dans excel.

Pour, il me semble, améliorer la velocité vu le nombre important d enregistrements

Pensez- vous que cela pourrait être une bonne idée ?
D autres solutions plus efficaces à proposer ?

( Je n y connais pas grand chose en access)

D avance merci, pour vos réponses , aides, meilleures pistes
26/06/2019, 23h02
patricktoulon

re

re
bonsoir
le problème restera toujours la quantité de donnée qui peut etre plus importante dans acces par raport a la limite d' une feuille ou meme la limite des variables tableau y compris les dico
donc non
27/06/2019, 09h23
78chris

Bonjour à tous

Plutôt que récupérer une table pourquoi ne pas récupérer le résultat d'une requête qui fera le boulot avec le moteur Access...
27/06/2019, 11h06
mfoxy

Re

Bonjour Patrick, Chris ,

Merci pour vos réponses,

J'abandonne donc le dictionnaire,

Et je vai me concentrer sur la création de requêtes qui feront le boulot avec le moteur Access.
Je tenterai de lancer celle-ci via mon classeur excel et dans récupérer le résultat.

Merci pour votre expertise,

je vai laisser la discution ouverte encore quelques jours histoire de vous faire un retour.
27/06/2019, 14h24
78chris

RE

Il suffit d’enregistrer la requête dans Access et dans Excel un lien vers la requête suffit.

Merci

Pour info , j'ai créé une requête "Parametré" dans ma table Access
Requête que je lance par un code Vba Excel avec paramêtre, et récupère la "table" créée dans mon classeur.

A titre informatif

Code d'appel

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
35
36
37
38
39
40
41
 
Public Sub RunParamQuery()
 
'Execute a Parameter Query
 
    Dim objRec As Object
    Dim lngField As Long
 
    Dim ParametreFiltre As String: ParametreFiltre = "XX"
    Dim BdName As String: BdName = "Database.mdb"
    Dim BdTable As String: BdTable = "Bd_A_Filtre"
 
 
    strDB = ThisWorkbook.Path & "" & "\" & BdName
    strQueryName = BdTable
    ParametreFiltre = ParametreFiltre
 
    On Error Resume Next
        Set objRec = RunQuery(strDB, strQueryName, ParametreFiltre)
    On Error GoTo 0
 
    If Not objRec Is Nothing Then
 
        With Sheet1
 
          With .Range("A1")
                For lngField = 1 To objRec.Fields.Count
                   .Cells(1, lngField).Value = objRec.Fields(lngField - 1).Name
                Next lngField
 
            Call .Offset(1, 0).CopyFromRecordset(objRec)
 
          End With
 
        End With
 
    End If
 
    Set objRec = Nothing
 
End Sub

La fonction

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
35
36
37
38
39
40
41
 
Public Function RunQuery(ByVal strDBPath As String, ByVal strQueryName As String, ParamArray parArgs() As Variant) As Object
 
 
    Dim objCmd As Object
    Dim objRec As Object
    Dim varArgs() As Variant
    Dim lngPrm As Long
 
    Set objCmd = CreateObject("ADODB.Command")
 
    If UBound(parArgs) = -1 Then
        varArgs = VBA.Array("")
    Else
        varArgs = parArgs
    End If
 
    With objCmd
        .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source=" & strDBPath & ";" & _
                            "Jet OLEDB:Engine Type=5;" & _
                            "Persist Security Info=False;"
        .CommandText = strQueryName
        If UBound(parArgs) = -1 Then
            Set objRec = .Execute(Options:=4)
        Else
            varArgs = parArgs
            Set objRec = .Execute(Parameters:=varArgs, Options:=4)
            On Error Resume Next
                For lngPrm = .Parameters.Count - 1 To 0 Step -1
                    Call .Parameters.Delete(lngPrm)
                Next lngPrm
            On Error GoTo 0
        End If
    End With
 
    Set RunQuery = objRec
 
    Set objRec = Nothing
 
End Function

27/06/2019, 20h48
Pierre Fauconnier
Salut

Plusieurs solutions:
- Récupérer les données Access dans une table de données Excel (onglet Données...) en te connectant sur la base access, puis mettre à jour la chaine de commande en y incluant tes paramètres;
- Créer une connexion ADODB et recréer ta requête paramétrée avec une adodb.command et des paramètres.
Que veux-tu faire des données récupérées?
28/06/2019, 06h07
mfoxy

re

Bonjour Pierre,

Merci pour le retour.
J ai appliqué en qq sorte votre méthode.( Post précédent)

La table disont global access , contiendra des données multiclient
Celle-ci sera alimenté par différents départements de la société

Chaque départements ne pourra avoir que les données de son client

La tables récupérés vont me permettre de créé : fichier de facturation,productivite,resultat qualité,.

Le but de l import filtré dans excel par client, via macro, va me permettre de ne crée qu un seul classeur
Qui en fonction de sa base de données, ne montrera que les infos d un client X

Le filtrage et import par paramètres me permettra cette chose

Évitera, de devoir créé et géré de multiple fichier de résultats et multiples base de données

Une macro , excel, me permettra à terme de " sortir" les différents fichier de résultats à la chaîne, pour chaque département et envois des fichiers par mail aux différents chef de services
28/06/2019, 09h53
Pierre Fauconnier

Oui, en effet. Je n'avais pas lu le code jusqu'au bout... :(