Discussion :

[DarkGriffin]

Bonjour,

J'ai une macro qui va lire dans un onglet dans un fichier excel en accès ADODB.

Par défaut, les headers sont dans la première ligne, sauf que je me retrouve à avoir énormément de champs (genre plus de 1000) et que pour des raisons pratiques je voudrais placer les header en colonnes. Est-ce que c'est possible ? Est-ce qu'il y a une option pour spécifier ça lors de l'ouverture de la connexion par exemple ?

Merci d'avance !

[Jean-Philippe André]

Salut,

qui utilise une table ou une vue avec 1000 champs ?

Qu'entends-tu par

je voudrais placer les header en colonnes

Tu veux dire que tu veux transposer les colonnes en ligne, passer par exemple de
A B C
1 2 3
4 5 6

à
A 1 4
B 2 5
C 3 6

?

[DarkGriffin]

qui utilise une table ou une vue avec 1000 champs ?

Moi

Et c'est probablement un problème d'architecture de base. Donc là je cherche une solution "simple" avant de tout péter et de repenser mon architecture complète.

Donc oui, j'ai mon onglet avec :

SECTION ; TYPE ; ELEM1 ; ELEM2 ; ... ; ELEM1000
(machin) (typeA) blabla1 blabla2 ...
(truc) (typeB) blabla1 blabla2 ...

Et je voudrais que les headers soient en colonne :

SECTION (machin) (truc)
TYPE (typeA) (typeB)
ELEM1
ELEM2
...
ELEM1000

Est-ce qu'il y a une option pour lire les headers en colonne ? Ou est-ce dans la requête SQL qu'on peut le préciser ?

[Jean-Philippe André]

Salut,

si tu as bien la possibilité de revoir ton architecture, ca sera de loin la piste la plus pertinente, car tu te faciliteras la vie en revoyant cela, tant au niveau de la lisibilité, de la performance et de la pertinence de tes données

[Pierre Fauconnier]

Salut

XL2019 => Pour moi, Power Query pour ramener les données d'Access en Excel. Rapide, simple et sans macro.

Une table Access étant "limitée" à 255 champs, je serais curieux de voir la structure des données, mais c'est une autre histoire, quoique. Ca n'a pour moi pas beaucoup de sens de ramener un tableau de 1000 colonnes. Il serait à mon avis plus intéressant de segmenter les vues à des fins d'analyse pertinente. Du coup, plus besoin de permuter⁽¹⁾ (c'est assez rare que le nombre de champs soit plus grand que le nombre d'enregistrements, dans la "vraie vie, mais je me demande de plus en plus si je suis dans la vraie vie, sur les forums).

Cela étant, tu peux boucler sur les champs du recordset pour récupérer les noms des entêtes et les placer en entêtes de tes colonnes en Excel.



⁽¹⁾ Si vraiment tu tiens à transposer la présentation des données, tu as "de la chance".

ADODB permet de récupérer un array des données d'un recordset et cet array est, wouah la chance, transposé... Note toutefois que cet array est de base 0.

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
Sub Test()
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim f As ADODB.Field
  Dim r As Range
  Dim Rows
  Set r = Range("a1")
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=c:\data\temp\Database11.accdb"
    Set rs = cn.Execute("select * from contact")
    For Each f In rs.Fields
      r.Value = f.Name
      Set r = r(2)
    Next
    Rows = rs.GetRows
    Set r = Range("b1")
    r.Resize(UBound(Rows) + 1, UBound(Rows, 2) + 1).Value = Rows
  cn.Close
End Sub