Bonjour à tous

Je dois faire très régulièrement des exportations vers Excel2010. Ces exports représentent des données propres à plusieurs centres et chaque onglet correspond à un centre.

Aujourd'hui j'ai autant de requêtes que de centres "R_Export01", "R_Export02" ... jusqu'à 56 et j'ai autant de lignes de code pour les exporter.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim strFichier As String,
 
    strFichier = "2015Exportation.xlsx"
 
    DoCmd.TransferSpreadsheet acExport, 10, "R_Export01", (CurrentProject.Path & "\" & strFichier), True, "Onglet01"
    DoCmd.TransferSpreadsheet acExport, 10, "R_Export02", (CurrentProject.Path & "\" & strFichier), True, "Onglet02"
    DoCmd.TransferSpreadsheet acExport, 10, "R_Export03", (CurrentProject.Path & "\" & strFichier), True, "Onglet03"
Cette méthode fonctionne bien mais à chaque exportation je dois changer des critères dans les 56 requêtes.

Ma question : Y aurait il une solution pour, plutôt que de pointer sur chaque noms de requêtes, je puisse remplacer "R_Export01", "R_Export02" ...
par une sorte de variable SQL et comment dois je la déclarer ?

D'avance merci