Discussion :

[Modouch]

* Bonjour, *

Pouvez vous m'aider
A partir d'une base de donnée Access 2013 j'exporte une requête vers Excel 2013 cela fonctionne avec la requête d'origine , cependant toutes transactions qui sont déversés par la suite dans la requête ne sont pas pris en compte lors de l'export vers Excel ( dans la requête le dernier enregistrement est 3250 dans Excel il s’arrête à 3047

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 FiltreRQ_Click()
 
    Dim qd As QueryDef
    Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select * From R_Source")
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "L:\Exp Requète BC\ExportBC.xlsx"
    DoCmd.DeleteObject acQuery, "Requete_Temporaire"
 
    Dim appexcel As Excel.Application
    Dim wbexcel As Excel.Workbook
    Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True
    Set wbexcel = appexcel.Workbooks.Open("L:\Exp Requète BC\ExportBC.xlsx")
End Sub

* Merci *

[marot_r]

Bonjour.

Je et suggère de ne pas préciser le type de Excel.

Code :

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

DoCmd.TransferSpreadsheet acExport, , "Requete_Temporaire", "L:\Exp Requète BC\ExportBC.xlsx"

Dans ton code tu as défini un format Ogffice 97 (extention .xls) mais tu mets un extention Office 2007 et + (.xlsx).
À mon avis il n'aime pas trop.

Sinon cela pourrait venir des données elles-mêmes si il y a un caractère qu'il n'aime pas.
Est-ce que toutes les exportations s'arrêtent à la même ligne ?

A+