Discussion :

[re_monde]

Bonjour,

J'ai une requête avec 100 lignes , disons 20 lignes par client, j'aimerais créer autant de fichier excel avec les colonnes de ma requête que de client Comme je ne sais pas faire j'ai créé autant de requête que j'exporte que de Client : mais pas top des qu'il y a un nouveau client. Merci pour votre aide ;-)

[arond]

Bonjour,

J'ai une requête avec 100 lignes , disons 20 lignes par client, j'aimerais créer autant de fichier excel avec les colonnes de ma requête que de client Comme je ne sais pas faire j'ai créé autant de requête que j'exporte que de Client : mais pas top des qu'il y a un nouveau client. Merci pour votre aide ;-)

Je propose d'utiliser VBA :

Code :

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

1
2
3
4
5
6
7
8
 
'Comment modifier le code d'une requete
Dim strSQL As String
strSQL = "instruction SQL"
CurrentDB.QueryDefs("Requête à modifier").SQL = strSQL
 
'Commande d'export dans Excel d'une Requete
DoCmd.OutputTo acOutputQuery, "Requete1", "MicrosoftExcel5.0/95Workbook(*.xlsm)", "", True, "", , acExportQualityPrint

Tu n'as plus qu'a faire un tableau de String avec le nom de tes clients et ta requête dans laquelle tu insérera le nom du client dans la clause WHERE.

Puis mettre tout sa dans une boucle qui parcourra ton tableau et qui exécutera la requête pour chaque nom de clients.

[re_monde]

Bonjour, je n'ai pas tout compris dans la réponse , faire un tableau de string ? et comment mettre ma clause where.
Merci de nouveau pour ton aide.

[marot_r]

Bonjour.

Certe un tableau de string sera le travail mais ce ne sera pas très dynamique.

Je te propose l'amélioration suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
public sub ExporterExcel
   dim db as dao.database:set db=currentdb
   dim rClient as dao.recordset:set rClinet=db.openRecordset("NomTaTableClient", dbOpenSnapShot) 'Récupère la liste des clients
   dim qModele as dao.querydef: set qModele=db.querydefs("NomTaRequeteDeDonnees") 'Là les données de tous les clients
   dim qExport as dao.querydef: set qModele=db.querydefs("NomTaRequeteExport") 'ici seulement les données du client
 
   do while not rClient.eof
 
        qExoprt.sql="select [" & qModele.name & "].* from [" & qModele.name & "] & where [" & qModele.name & "].[ClefClient]=" & rClient![Clef] 'Crée le SQL pour ce client en particulier
        'Commande d'export dans Excel d'une Requete
        DoCmd.OutputTo acOutputQuery, qExport.name, "MicrosoftExcel5.0/95Workbook(*.xlsm)", "", True, "", , acExportQualityPrint 'Là je m'essaye car d'habitude on utilise DoCmd.TransferSpreadSheet
        rClient.movenext 'Passe au client suivant
   loop
 
   set qModele=nothing
   set qExport=nothing
   db.close:set db=nothing
end sub

Note bien qu'il faut 2 requêtes : une qui donne les données pour tous les clients et une qui va servir à sélectionner seulement un client et qui servira au transfert vers Excel.
L'avantage d'avoir une requête modèle est que le SQL ne sera pas en dur dans le code et qu'il est plus facile, selon moi, de mettre au point et de changer une requête dans l'éditeur de requête que dans le VBA.

A+

[re_monde]

Bonjour,

Merci pour le code, j'ai essayé, mais voilà je suis une débutante xxl dans le vba.
Je te joins un exemple zippé de ma base.
Je n'ai pas trop compris à quoi servait la 2ème requête et on ne lui dit pas non plus où enregistrer les fichiers excel.

Si tu peux m'aider, je prends
Merci bcp