* 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
* Merci *
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
Partager