Discussion :

[franckb74]

Bonjour,

Je souhaiterai exporter une requête nommé : R_CompAcheteParFourParUt
vers un nouveau fichier Excel

Comment puis-je faire ?

En vous remerciant pour votre aide

[f-leb]

Bonsoir,

en farfouillant dans les onglets du ruban...

[franckb74]

Bonsoir en faite je souhaiterai le faire en vba

Merci par avance

[f-leb]

Ah, en VBA...

avec DoCmd.TransferSpreadsheet alors...

[franckb74]

merci, quelle est la synthaxe exacte pour exporter ma requête ?

Merci à toi

[franckb74]

Je n'avais pas vu le lien sur la fonction mais lorsque j'exécute le code que j'ai personnalisé à ma requête rien ne se passe .... :-(

Le code exemple du lien :

Code :

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

1
2
3
4
5
6
7
8
Function TransfertExportExcel()
 
DoCmd.TransferSpreadsheet acExport, _
                    acSpreadsheetTypeExcel9, _
                    "Clients", _
                    "Clients.xls", _
                    True
End Function

Mon code personnalisé

Code :

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

1
2
3
4
5
6
7
Function ExporteArticleVersExcel()
    DoCmd.TransferSpreadsheet acExport, _
                    acSpreadsheetTypeExcel9, _
                    "R_ExportCompAcheteUt", _
                    "Artiles_Acheté_ParUtilisateur.xls", _
                    True
End Function

Est-ce que j'ai fait une erreur ?

[red210]

https://msdn.microsoft.com/en-us/lib.../ff844793.aspx

Code :

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

DoCmd.TransferSpreadsheet acImport, 3, "Employees","C:\Lotus\Newemps.wk3", True, "A1:G12"

En spécifiant le chemin complet vers lequel effectuer l'extract peut aider.

[franckb74]

Bonsoir,
Merci pour cette proposition je vais essayer
Est-ce que cette fonction permet d'exporter ma requête dans nouveau fichier xls ?

[red210]

Test pour voir ca ne va pas exploser.

Et la tu as vraiment tout bien expliquer: https://msdn.microsoft.com/fr-fr/lib.../ff844793.aspx

[franckb74]

Bonjour,

Merci ça ne fonctionnait pas mais j'ai trouvé !!! youpi !!!

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ExportCompAcheteExcel()
On Error GoTo Macro31_Err
 
    DoCmd.OutputTo acOutputQuery, "R_ExportCompAcheteUt", "ExcelWorkbook(*.xlsx)", , True, , , acExportQualityPrint
 
 
Macro31_Exit:
    Exit Function
 
Macro31_Err:
    MsgBox Error$
    Resume Macro31_Exit
 
End Function