VBA - Importer valeurs Access vers Excel

Version imprimable

28/06/2022, 14h35
Uknowho

2 pièce(s) jointe(s)

VBA - Importer valeurs Access vers Excel

Bonjour,

D'une part, je dispose de valeurs fournies par une requête analyse croisée :

- en-tête de ligne : produits
- en-tête de colonne : mois
- valeur : poids

Pièce jointe 621503

D'autre part, j'ai un classeur Excel comportant un tableau configuré de la même manière :

- en-tête de ligne : produits
- en-tête de colonne : mois
- valeur : poids

Pièce jointe 621504

Actuellement, j'alimente mon tableau Excel manuellement chaque mois et j'aimerais automatiser cette procédure.

Par conséquent, est-il possible de copier une valeur individuelle d'une requête vers une cellule Excel ?

Exemple :

- Copier le poids du produit "B" du mois de février de ma requête vers la cellule C3 de ma feuille Excel.
- Copier le poids du produit "C" du mois de février de ma requête vers la cellule C4 de ma feuille Excel.
- Copier le poids du produit "B" du mois de mars de ma requête vers la cellule D3 de ma feuille Excel.
- etc.

N.B. :

- J'utilise plusieurs requêtes afin de compléter mon tableau entièrement : Requête 1 = AC / Requête 2 = Privé / Requête 3 = Particuliers, etc.
- Le tableau Excel et la requête Access ne sont pas toujours identique, d'où ma demande de copier individuellement chaque valeur.

Cordialement,
30/06/2022, 21h28
marot_r

Bonjour.

Je pense que ce serait plus simple d'exporter tes données source de ta requête croisée et de faire un tableau croisé dynamique dans Excel.

Là j'ai de la misère à comprendre la logique pour passer de Excel à Access.

A+
01/07/2022, 14h29
Uknowho

J'aimerais en effet pouvoir passer par des TCD mais les filtres pour obtenir la partie "AC" ne sont pas les mêmes que ceux pour obtenir la partie "Privés" et ainsi de suite pour chaque sous-division.

Or, toutes les informations doivent se retrouver dans un seul et même tableau sachant que je n'ai partagé qu'une partie de celui-ci, il est en réalité multiplié par 4 en fonction de nos différents sites.

J'aimerais juste savoir s'il possible de copier une valeur individuelle d'une requête vers une cellule Excel ? çad copier une cellule d'une requête Access vers une cellule Excel.

À partir du moment où j'ai ce code, si cela est réalisable, je devrais pouvoir m'en sortir... du moins, je l'espère. :marteau:
28/07/2022, 02h02
deedolith

Salut,

Depuis Excel, passe par Power Query pour interroger Access.
Ajoute un TCD, quelques formules et le tour sera joué.
28/07/2022, 09h36
Uknowho

Salut,

Merci pour ta réponse malheureusement, cette solution ne me permet pas d'exécuter ce que je désire.

En effet, ma source de données ne provient pas de table ou de requête classique mais de requête analyse croisée et celle-ci ne sont pas accessible via Power Query.

Qui plus est, les tableaux sur lesquelles je travaille doivent respecter une certaine mise en forme et l'utilisation de TCD ne permet pas cette flexibilité.

Cordialement,

Bonjour Uknowho,

Voici un exemple pour copier une requête dans un tableur Excel, cependant

Citation:

- Le tableau Excel et la requête Access ne sont pas toujours identique, d'où ma demande de copier individuellement chaque valeur.

votre demande devient impossible. Il doit y avoir une certaine rigueur dans la mise en forme. Le code suivant suppose que le début de la saisie des données est à partir de la deuxième ligne. Les produits dans le fichier Excel correspondent aux produits dans la requête. Il y a toujours les 12 colonnes pour les 12 mois.

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
42
43
44
45
46
47
48
49
50
51
52
Private Sub suCopieExcel()
On Error GoTo gestion_err:
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim strSQL As String
    Dim i As Integer, j As Integer
 
    Dim oApp As Object
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
 
    'Ici c'est la rq  en SQL, j'ai divisé par mois mais il est possible de faire autrement
    ' Les produits sont mis en ordre alphabétique pour être comme dans le fichier Excel
    strSQL = "TRANSFORM Sum(T_Table.Argent) AS Argent " _
    & "SELECT T_Table.Produit FROM T_Table " _
    & "GROUP BY T_Table.Produit ORDER BY T_Table.Produit" _
    & "PIVOT Format([Date_Cle],'mmm') In ('janv','févr','mars','avr','mai','juin','juil','août','sept','oct','nov','déc');"
    'On ouvre un jeu d'enregistrement
    Set rst = db.OpenRecordset(strSQL, 4, 512)
    'On ouvre Excel et on récupère le fichier
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open("Le_Chemin_Et_Nom_Du_Fichier_Excel_Complet")
    oApp.Visible = True
    Set oWSht = oWkb.Worksheets("Le_Nom_De_La_Feuille")
    j = 2     'On commence à inscrire les données à la deuxième ligne
    Do While rst.EOF = False
        For Each fld In rst.Fields
            If fld.OrdinalPosition <> 0 Then 'On ne saisi pas la première colonne qui est le nom du produit
                i = fld.OrdinalPosition + 1
                oWSht.cell(j, i) = fld.Value
            End If
        Next
        rst.MoveNext
        j = j + 1
    Loop
    'On libère les objets
    rst.Close
    Set rst = Nothing
    Set db = Nothing
    oWkb.Close saveChanges:=True
    Set oWSht = Nothing
    Set oWkb = Nothing
    Set oApp = Nothing
 
Sortie:
Exit Sub
gestion_err:
    MsgBox Err.Description & Chr(13) & "Erreur numéro: " & Err.Number & Chr(13) & "Dans la Sub suCopieExcel"
    Resume Sortie
End Sub

Bonne journée

29/07/2022, 11h35
Uknowho

Bonjour,

Merci beaucoup pour cette réponse, je m'en vais de ce pas tester ceci. ;)
31/07/2022, 00h47
deedolith

Citation:

Envoyé par Uknowho

Merci pour ta réponse malheureusement, cette solution ne me permet pas d'exécuter ce que je désire.

Ha ?

Sachant que l'équivalent d'une requête analyse croisée est un TCD,
qu'est ce qui t'empêche de récupérer les données permettant de constituer cette dernière ?

Sérieusement, depuis l'avènement de Power Query, importer ou exporter des données d'Access vers Excel via VBA est obsolète.
Donc met toi à jour, et utilise des technologies moderne, la maintenance te dira merci.
31/07/2022, 09h59
Uknowho

Cette intervention était elle vraiment nécessaire ?

Je travaille pour une société et je ne suis pas seul à travailler sur ces tableaux.

J'en serais propriétaire, je serais le premier à envisager d'autres solutions...

Par conséquent, à défaut de pouvoir les modifier, j'essaie juste de trouver une solution.

Dois-je réellement être flagellé pour ça ? :oops:

S'il n'existe pas de solution à ma demande, ainsi soit-il mais ça coûte rien de demander. ;)
31/07/2022, 14h10
Robert1957

Bonjour Uknowho,

La réponse de deedolith est complètement hors sujet. Il existe des circonstances qui justifie très bien de passer par VBA. Un rapport qui doit être produit à chaque mois peut-être automatisé dans une application Access pour un export dans Excel au click d'un bouton de l'application Access pour éviter toute manipulation. Une application Access protégée par un mot de passe n'est pas accessible, idem pour SQL etc...

Bonne journée
31/07/2022, 15h53
hyperion13

Salut Robert1957
Et en plus, il pense que nous avons attendu PowerQuery pour communiquer entre Access et Excel.
Encore un qui confond culture et confiture. :ptdr: