Extraction d'une table Access sous Excel

Version imprimable

07/07/2008, 16h18
Chikatilo

Extraction d'une table Access sous Excel

Bonjour ,
je suis entrain de developper une application sur VB , je dois a la fin faire une exctraction d'une table access vers un fichier excel.
or, que sur le fichier excel j'ai bien definie des colonnes et des lignes , le but c'est d'automatiser le max l'outil , ce que je veux faire un programme ayant mm fonction que la "recherchev" c'est a dire je stocke les donnees dans le champs qui leurs convient j'espere que j'etais assez clair
merci
07/07/2008, 17h06
berti

Tu veux un bouton qui exporte une table sous Excel. C'est tout simple.

Code:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "la table ou la requete", "C:\....\fichier.xls"
07/07/2008, 17h39
Chikatilo

Merci de ta reponse ,
c'est ce que je fais , mais comme j'ai dit en haut je veux un truc qui permette de realiser ce que fais la fonction "recherchev" sur excel c'est a dire affecté a chaque champs la valeur qui lui correspond.
08/07/2008, 16h36
Chikatilo

Bonjour ,
en Fait l'xctraction que je dois faire a le role de la fonction recherchev().
08/07/2008, 21h33
h_adil

Citation:

Envoyé par Chikatilo

Bonjour ,
je suis entrain de developper une application sur VB , je dois a la fin faire une exctraction d'une table access vers un fichier excel.
or, que sur le fichier excel j'ai bien definie des colonnes et des lignes , le but c'est d'automatiser le max l'outil , ce que je veux faire un programme ayant mm fonction que la "recherchev" c'est a dire je stocke les donnees dans le champs qui leurs convient j'espere que j'etais assez clair
merci

Tu veux piloter acces a partir d'excel ou l'inverse? (c'est a dire : ton bouton commande ils sera dans acces ou excel)?
08/07/2008, 22h25
Siu Lim Tao

Si tu veux une fonction similaire à Recherchev, tu as ça en mieux sous Access avec plein de détails ici (notamment RechDom): http://starec.developpez.com/tuto/fonctionsdomaines/

++
09/07/2008, 06h33
Invité

Bonjour

Citation:

Envoyé par Siu Lim Tao

Si tu veux une fonction similaire à Recherchev, tu as ça en mieux sous Access avec plein de détails ici (notamment RechDom): http://starec.developpez.com/tuto/fonctionsdomaines/

Je ne pense pas que les fonctions de domaines répondent au problème.

Chikatilo

Il va falloir travailler par automation, c'est à dire (comme le signale h_adil), c'est de piloter Excel à partir d'Access.

C'est la seule manière de mettre les données où tu le veux dans Excel.
Regardes dans la FAQ Access, tu trouveras des exemples de codes pour ouvrir Excel, et mettre les données où tu veux dans tes feuilles.

Starec
09/07/2008, 09h34
Chikatilo

Bonjour,
Merci de votre reponse,
pour h_adil j'ai créé un formulaire sur access , et sur excel j'ai mis un tableau des valeurs notamment (ville et code_ville , nb_audit...) qui rejoingent les champs que j'ai sur ma table access.
Moi ce que je veux , c'est en cliquant sur le boutton d'extraction sur access , mes valeurs se mettent automatiquement dans leurs champs réservé sur la feuille excel.
est ce que j'etais clair ?
merci de votre reponse .
09/07/2008, 10h38
Invité

Re

Il faut que tu récupères tes données dans une requête pour qu'elles se présentent comme tu veux.

Tu affectes cette requête à un recordset, et ensuite celui-ci à ta plage de valeur en utilisant la méthode CopyFromRecordset de l'objet range d'Excel.

Si tu fais des recherches sur le mot CopyFromRecordset, tu trouveras des exemples sur le forum.

Starec

Bonjour,

Je fais ce genre de manip assez régulièrement pour une production de tableau de reporting, mon but étant d'automatiser et d'utiliser au mieux les capacités de chacune des applications.

Ce que je fais via automation c'est de copier les résultats de mes extractions vers excel. En fait vers une feuille excel "template" qui contient tous les calculs et formules utiles à la production des rapports.

Donc ce que je fais :
sous access, je copie mon template excel contenant toutes mes formules avec notamment l'utilisation de plages nommées dynamiquement en utilisant les fonctions DECALER et NB afin de dimensionner ces plages.

Ensuite j'exporte mes données produites par access vers excel sur ces plages définies.

Excel va effectuer les calculs, vlookup, sommeprod et autres et le tour est joué.

voilà la fonction d'export :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Compare Database
Public Function fExportExcel(ByVal argPath As String, argRs As DAO.Recordset, sName As String, Optional isFiltered As Boolean, Optional isSheetAdded As Boolean, Optional isNewWorkBook As Boolean)
 
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Dim MaxCol As Integer
    Dim MaxRow As Integer
 
    MaxCol = argRs.Fields.Count
    If argRs.RecordCount > 0 Then
        argRs.MoveLast
        argRs.MoveFirst
        MaxRow = argRs.RecordCount
 
 
 
        Set xlApp = CreateObject("Excel.Application") 'New Excel.Application
        With xlApp
            .Visible = True
            If isNewWorkBook Then
                Set xlBook = .Workbooks.Add
            Else
                Set xlBook = .Workbooks.Open(argPath)
            End If
 
            If isSheetAdded Then
 
                Set xlSheet = xlBook.Worksheets(1)
                xlSheet.Name = sName
                xlSheet.Cells.Value = ""
            Else
                Set xlSheet = xlBook.Sheets(sName)
            End If
 
            With xlSheet
                For iCol = 2 To MaxCol + 1
                    .Cells(3, iCol).Value = argRs.Fields(iCol - 2).Name
                Next
                .Select
                .Cells(4, 2).CopyFromRecordset argRs
                .Cells(2, 1).Select
                .Cells.Select
                .Cells.EntireColumn.AutoFit
                .Cells(2, 1).Select
                .Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, MaxCol)).Select
 
 
            End With
 
 
 
        End With
        'xlApp.Run "CopyPaste"
        If isNewWorkBook Then
            xlBook.SaveAs (argPath)
        Else
            xlBook.Save
        End If
 
        xlApp.Quit
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlApp = Nothing
    End If
 
End Function

et voilà sous access, l'utilisation :

Code:

1
2
3
4
5
6
7
    'Move template to report
    SourceF = GetParams.ReturnDataPath & "RESULTS\TEMPLATE\KPI TEMPLATE.xls"
    DestF = GetParams.ReturnDataPath & "RESULTS\KPI-" & Format(Me.KPIs_Begin.Value, "yyyy-mm-dd") & "-to-" & Format(Me.KPIs_End.Value, "yyyy-mm-dd") & cplt_FicName & ".xls"
    oFso.CopyFile SourceF, DestF, True
    'export sales
    Set oRst = oDb.OpenRecordset("SELECT * FROM KPI#LIST#SALES" & cplt_String & ";")
    ExportResults.fExportExcel DestF, oRst, "SALES", True, False, False

09/07/2008, 11h14
Chikatilo

merci pour vos reponses.
Ducati c'est excatement ce que je veux faire c'estpour des reporting aussi .
dans mon cas ,
1.j'ai des donnees brut sur excel que j'importe sur access ,
2. je Selectionne et je calcul les champs dont j'aurais besoin
3. il y a deja une feuille excel créee pour le reporting avec des champs de colonnes pour bien ciblé les valeur
4. je fais une exctraction d'access vers cette feuille , ainsi je voulais que toutes les valeurs prennent leurs champs qui leurs correspondent.

le but est le meme c'est d'automatiser le reporting a max
merci en tout cas pour ta reponse.
22/07/2008, 15h18
Chikatilo

Bonjour,
est ce que tu peux m'expliquer ton 2 code car j'ai pas tout saisi
en te remerciant .