Discussion :

[Pimpampoum]

Bonjour,

J'ai besoin d’exporter un rapport d'accès à excel. Il me propose plusieurs formats (xls, pdf, txt...) mais pas xlsb ou xlsx. J'aurai besoin d'un de ce deux formats car j'exporte plus de 200 000 lignes et, si possible, je prefererai xlsb car la taille du fichier Excel resultant après est carrement plus petit (par rapport à un xlsb). Savez-vous comment faire ? Ci-dessous le code que j'utilise actuellement (export en xls) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmb_Excel_Click()
    Beep
    Reponse = MsgBox("Souhaitez-vous exporter les dossiers affichés ?", vbYesNo, "Test")
    If Reponse = vbYes Then
        stDocName = "rpt_tbl_All"
        On Error Resume Next
            If Me.frm_tbl_All.Form.FilterOn = False Then
                DoCmd.OpenReport stDocName, acViewPreview
                    DoCmd.OutputTo acReport, stDocName, "(*.xls)", "C:\Test\test_export.xls", False, ""
                DoCmd.Close acReport, stDocName, acSaveNo
            Else
                DoCmd.OpenReport stDocName, acViewPreview, , Me.frm_tbl_All.Form.Filter
                    'DoCmd.OutputTo acOutputReport, stDocName, acSpreadsheetTypeExcel14, XFile, False ' Cette ligne me donne la possibilité de choisir le format mais sans xlsb ou xlsx
                    DoCmd.OutputTo acReport, stDocName, "(*.xls)", "C:\Test\test_export.xls", False, ""
                DoCmd.Close acReport, stDocName, acSaveNo
            End If
        On Error GoTo 0
    End If

Merci d'avance

[marot_r]

Bonjour.

Regarde ici http://www.devhut.net/2014/08/07/doc...l-2007-format/ "DoCmd.OutputTo in xlsx (Excel 2007+) Format".

Je pense que cela répond à ton besoin.

Google est votre ami :-).

A+

[Pimpampoum]

Merci de votre réponse mais malheureusement ce n'est pas celle qui me faut. Effectivement, je sais exporter en .xlsx ou en .xlsb depuis un formulaire ou depuis une requête mais je ne sais pas exporter ces deux formats là depuis un état. Je ne sais pas pourquoi.

[marot_r]

Il se peut qu'on ne puisse simplement pas.

Les objets n'offrent pas tous les mêmes possibilités.

A+

[bernardmichel]

Hello !

Voici un petit bout de code qui devrait pouvoir t'aider à résoudre ton blème... :-)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Test_Click()
Dim stQryName   As String
Dim stChemin    As String
 
        stQryName = "qryXlsb"           ' Requête qui affiche les mêmes enregistrement que ton Etat
        stChemin = "C:\Test\Test.xlsb"  ' Chemin à modifier selon ta convenance
        DoCmd.TransferSpreadsheet acExport, 9, stQryName, stChemin
 
End Sub

Cordialement.

[Pimpampoum]

Bonjour à tous,

Effectivement, je pense qu'Access ne permet tout simplement d'exporter les rapports comme un fichier .xlsx ou .xlsb. Je peux exporter les formulaires et les requêtes mais le but d'utiliser le rapport était de ne pas perdre les filtres utilisés dans le formulaire (comme ça j'arrive à exporter simplement les données filtrées et pas tout). Je pense qu'il faudra passer par une table intermédiaire mais ça c'est une autre histoire.

Merci de votre aide

[bernardmichel]

Surprise...

As-tu essayé le code que je t'ai envoyé ??

Je l'ai testé chez-moi et cela fonctionne !