Discussion :

[bakman]

Bonjour je souhaiterais optimiser mon code lors de la récupération du résultat d'un requete que je réinjecte dans une feuille excel

J'ai ceci

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
 
Dim db As DAO.Database
Dim rst As DAO.RecordSet
Dim qry As DAO.QueryDef
 
Set db = CurrentDb
Set qry = CurrentDb.QueryDefs("nomDeMaRequete")
Set rst = qry.OpenRecordSet
 
Dim i As integer
 
Do Until rst.EOF
 
monWorkbook.sheets("maFeuil").Cells(3 + i , 1 ) = rst![macolonne1]
monWorkbook.sheets("maFeuil").Cells(3 + i , 2 ) = rst![macolonne2]
 
etc...

Effectivement si on a 30 colonne il va falloir écrire ligne à ligne


je voulais savoir s'il était possible de remplacé

Code :

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

1
2
 
rst![macolonne1]

Par un tableau contenant le nom des tout les colonnes

Code :

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

1
2
 
rst![monTableau(i)]

quand j'essaye j'ai le message d'erreur "Element non trouvé dans cette collection"

Merci d'avance

[tee_grandbois]

Bonjour,
essaie avec :

Code :

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

1
2
 
rst.fields(i)

avec une boucle pour incrementer i

[bakman]

Ca marche à merveille
Merci beaucoup