J'suis une quiche en info mais je bidouille des trucs sous Access
J'ai une requête à répéter X fois pour exporter le résultat dans des fichiers Excel.
Je dispose d'une table Assistante commerciale (CSR) :
CSR
csr1
csr2
csr3
...
csr18
En VBA dans un formulaire, j'ai créé un truc "bancal" en répétant ma requête 18 fois de manière statique :
Ma question est la suivante : Comment que c'est-y qu'on peut faire une boucle depuis la table CSR pour répéter l'opération de la première (csr1) à la dernière (csr18) ???'-----------
'---csr1---
'-----------
DoCmd.OutputTo acOutputQuery, "ma_requete", acFormatXLS, "m:\Administration_des_ventes\delivery blocked\Prepa\Résultat Exportation par CSR\csr1.xls"
xls.workbooks.Open "m:\Administration_des_ventes\delivery blocked\Prepa\Résultat Exportation par CSR\csr1.xls"
xls.Columns("A:M").EntireColumn.AutoFit
xls.Range("A2").Select
xls.ActiveWindow.FreezePanes = True
xls.Sheets(1).Name = "Tri par CSR"
xls.Range("A2").Select
xls.Rows("2:2000").EntireRow.AutoFit
xls.ActiveWorkbook.Save
xls.ActiveWindow.Close
'-----------
'---csr2---
'-----------
DoCmd.OutputTo acOutputQuery, "ma_requete", acFormatXLS, "m:\Administration_des_ventes\delivery blocked\Prepa\Résultat Exportation par CSR\csr2.xls"
xls.workbooks.Open "m:\Administration_des_ventes\delivery blocked\Prepa\Résultat Exportation par CSR\csr2.xls"
xls.Columns("A:M").EntireColumn.AutoFit
xls.Range("A2").Select
xls.ActiveWindow.FreezePanes = True
xls.Sheets(1).Name = "Tri par CSR"
xls.Range("A2").Select
xls.Rows("2:2000").EntireRow.AutoFit
xls.ActiveWorkbook.Save
xls.ActiveWindow.Close
'-----------
'---etc 18 fois---
'-----------
Vous seriez bien galants de pourvoir à ma demande messieurs dames ^^