Discussion :

[nomade333]

Bonjour,
J'ai les lignes de code ci dessous, est'il possible de simplifier?

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim qd As QueryDef, qe As QueryDef, Qf As QueryDef, Qg As QueryDef, Qh As QueryDef, Qi As QueryDef, Qj As QueryDef, Qk As QueryDef, Ql As QueryDef, Qm As QueryDef
 
Set qd = CurrentDb.CreateQueryDef("VN", "Select * From R_MODVN")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "VN", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "VN"
'
Set qe = CurrentDb.CreateQueryDef("LFDVA", "Select * From R_MODLFDVA")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "LFDVA", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "LFDVA"
'
Set Qf = CurrentDb.CreateQueryDef("MOD1", "Select * From R_MOD1")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MOD1", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "MOD1"
'
Set Qg = CurrentDb.CreateQueryDef("MOD2", "Select * From R_MOD2")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MOD2", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "MOD2"
'
Set Qh = CurrentDb.CreateQueryDef("MOD3", "Select * From R_MOD3")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MOD3", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "MOD3"
'
Set Qi = CurrentDb.CreateQueryDef("MOD6", "Select * From R_MOD6")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MOD6", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "MOD6"
'
Set Qj = CurrentDb.CreateQueryDef("MOD7", "Select * From R_MOD7")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MOD7", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "MOD7"
'
Set Qk = CurrentDb.CreateQueryDef("MOD8", "Select * From R_MOD8")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MOD8", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "MOD8"
'
Set Ql = CurrentDb.CreateQueryDef("VN à réaliser", "Select * From R_NbVnRealise")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "VN à réaliser", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "VN à réaliser"
'
Set Qm = CurrentDb.CreateQueryDef("Pièces à Remplacer", "Select * From R_NbRemplacementPiece")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Pièces à remplacer", "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, "Pièces à remplacer"

Merci à tous.

[Jean-Philippe André]

salut,
à première vue, tu peux faire un tableau de chaînes de caractères avec un boucle ensuite

'

Code :

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

1
2
3
4
5
6
tableau tab() à remplir
For i = 0 To Ubound(Tab)-1
Set qd = CurrentDb.CreateQueryDef(Tab(i), "Select * From R_" & Tab(i))
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, Tab(i), "c:\PEROU-M53_Moteurs.xls"
DoCmd.DeleteObject acQuery, Tab(i)
Next i

Et comme tu as un changement de nomenclature pour les derniers, on pourra meme faire ca avec 2 tableaux, l'un avec le nom, et l'autre avec la Requete R_XXX qui est liée.

[Beub']

Bonjour bonjour !

Tu peux peut-être mettre toutes tes String dans une table et, au lieu de faire tout ça, tu fais une requête pour récupérer tout le contenu de la table et tu boucles ensuite sur le recordset obtenu.

Ton code :
- ne prendra plus qu'une dizaine de lignes (faire la requête sur ta nouvelle table + faire la boucle + transférer sous Excel)
- utilisera beaucoup moins de variables qu'actuellement (tu as beaucoup de QueryDef là.. dans une boucle, un seul suffit !)
- en prime, sera beaucoup plus modulable qu'actuellement (requêtes entrées en dur, chemins des fichiers entrés en dur,...).

Est-ce que ça te semble possible ? Je pense que c'est la meilleure solution (à moins que quelqu'un d'autre ait une autre idée )

Cordialement,
Beub'.

Edit : Erf... on m'a devancé...

[nomade333]

Bonjour et merci,
Je suis débutant (même en dessous du débutant).
C'est quoi "un tableau de chaines de caractères" et comment fait ont?
Merci par avance

[nomade333]

Bonsoir,
Personne ne peux m'aider et m'indiquer comment simplifier le code ci-dessus
car j'ai le même besoin avec le code ci dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
Range("C5:E18").Sort Range("D5"), xlDescending
Range("F5:H18").Sort Range("G5"), xlDescending
Range("I5:K18").Sort Range("J5"), xlDescending
Range("L5:M18").Sort Range("M5"), xlDescending
Range("N5:O18").Sort Range("O5"), xlDescending
Range("P5:R18").Sort Range("Q5"), xlDescending
Range("S5:U18").Sort Range("T5"), xlDescending
Range("V5:X18").Sort Range("W5"), xlDescending
Range("Y5:Z18").Sort Range("Z5"), xlDescending
Range("AA5:AB18").Sort Range("AB5"), xlDescending
Range("AC5:AD18").Sort Range("AD5"), xlDescending
Range("AE5:AF18").Sort Range("AF5"), xlDescending
End Sub

Merci par avance

[nomade333]

Bonjour,
Pas beaucoup d'aide et de réponse aucune même, bon tant pis!
merci quand même

[Jean-Philippe André]

Hello,

les membres n'ont pas d'obligation de répondre aux questions, et il vaut mieux ne pas avoir de réponse plutôt qu'une réponse fausse, tu ne penses pas ?

A part stocker dans un tableau de chaînes de caractères les colonnes et celles qui servent à les trier, pas de possibilités de factoriser ton code je pense