Accès à Excel en Base de données avec header dans la première colonne

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 !

Salut,

qui utilise une table ou une vue avec 1000 champs ? :calim2:

Qu'entends-tu par

Citation:

---

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

?

Citation:

---

Envoyé par Jean-Philippe André

qui utilise une table ou une vue avec 1000 champs ? :calim2:

---

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 ?

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 :)

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:

---

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

---