Discussion :

[Jaymerry]

Bonsoir à tous,

Grâce à une connexion ADO sur des feuilles de mon fichier excel, je dispose du résultat d'une requête contenu dans un recordset.

Je souhaiterais maintenant "exporter" les données présentes dans celui-ci de manière transposée (lignes à la place des colonnes). En somme, au lieu de copier le résultat lignes par lignes, le faire colonnes par colonnes.

J'avais pensé à un code de ce type :

Code :

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

1
2
3
4
5
6
7
8
 
'rst = mon recordset contenant des données
'range = range cible pour copier mes données
 
While Not (rs.EOF)
Range.Next.copyfromrecordset rs 
rs.MoveNext
Wend

Auriez-vous une idée ?

Merci à tous pour votre aide

Jaymerry

[Michel_M]

Bonjour,

Tu pourrais retourner les valeurs successives dns une variable tableau intermédiaire de X lignes et Y colonnes (nbre de champs de la requete)
et transposer celui ci sur la feuille excel

par exemple

Code :

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

range("A3).resize(Y,X)=application.transpose(tontablo)

c'est seulement une idée !

[Jaymerry]

Merci du tuyau , effectivement cela a fonctionné avec le code suivant et en passant par une feuille intermédiaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
'rs mon recordset contenant des données
 
Dim tabi As Range
 
ThisWorkbook.Worksheets("Feuil2").Cells(2, 1).CopyFromRecordset rs
 
 
Set tabi = ThisWorkbook.Worksheets("Feuil2").Range("A2:B" & rs.RecordCount & "")
 
ThisWorkbook.Worksheets("Feuil1").Range("J1:AZ3" & Split(ActiveSheet.UsedRange.Address, "$")(4)).Resize(2, rs.RecordCount) = Application.Transpose(tabi)

Merci,

Jaymerry