Discussion :

[possible924]

Bonjour à tous,
Les possibilités de présentation, de regroupement, de somme sont importantes avec les états dans Access.
Est-il possible d'exporter le contenu d'un état Access vers Excel ?
Si par bonheur, c'était possible merci de me dire comment par VBA
Pierre

[Zekraoui_Jakani]

Dans la fonction "aide" de Access, j'ai trouvé ceci:
This procedure exports the Invoice report in the current database to an XML file. It also exports presentation information, and places images in the Images folder. The procedure exports the report to the default HTML wrapper. In addition, it creates a file containing the ReportML list.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ExportReport()
 
   Const CREATE_REPORTML = 16
 
    Application.ExportXML _
        ObjectType:=acExportReport, _
        DataSource:="Invoice", _
        DataTarget:="C:\Invoice.xml", _
        PresentationTarget:="C:\InvoiceReport.xsl", _
        ImageTarget:="C:\Images", _
        OtherFlags:=CREATE_REPORTML
 
End Sub

[argyronet]

Bonjour,

Une méthode simple se traduirait par ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ExportMyReport(ByVal ReportName As String, ByVal XLSFilename As String, ByVal OpenAfter As Boolean)
Const MSG_ERR                                          As String = "Assurez-vous que le fichier n'est pas en cours d'utilisation..."
Const ERR_INUSE                                        As Long = 2302
    On Error GoTo L_ErrExportMyReport
    DoCmd.OutputTo acOutputReport, ReportName, acOutputReport, XLSFilename, OpenAfter
    On Error GoTo 0
L_ExExportMyReport:
    Exit Sub
 
L_ErrExportMyReport:
    MsgBox Err.Description & IIf(Err = ERR_INUSE, vbCrLf & vbCrLf & MSG_ERR, ""), 48, "Export vers Excel"
    Resume L_ExExportMyReport
End Sub

que vous testerez comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub test_ExportMyReport()
    ExportMyReport "Carnet d'adresses des clients", "Z:\Tests\Carnet d'adresses des clients.xls", True
End Sub

Argy