Transposer une table access sur un fichier excel avec VBA

Bonjour,

J'essaye depuis ce matin à transposer un tableau (inversion des lignes des colonnes) d'une table access vers une feuille excel.

On peut l'effectuer manuellement par un collage spécial puis cocher la case Transposer. Mais il faut que j'arrive à le faire automatiquement avec du code VBA.

J'ai vu sur certains forums l'utilisation de Application.Transpose() mais ce la ne fonctionne pas sur du vba access. Est ce qu'il me manque un module ?.

Merci par avance

Bonjour

Etape 1 : exporter vers un fichier excel via la commande docmd.outputto
Etape 2 : Ouvrir Excel via un objet Excel.Application
Etape 3 : Ouvrir le classeur correspondant
Etape 4 : Transposer
Etape 5 : Fermer le tout

Ce qui pourrait ressembler à quelque chose comme :

Code:

---

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

Private Sub ExportExcel_Click() Dim MonSQL As String Dim oDb As DAO.Database Dim oQdf As DAO.Recordset Dim strTable As String 'Table à exporter strTable = "MSysObjects" DoCmd.OutputTo acOutputTable, strTable, acFormatXLS, "c:\essai.xls" Dim oApp As Excel.Application Dim oWb As Excel.Workbook Dim oSh As Excel.Worksheet Set oApp = New Excel.Application oApp.DisplayAlerts = False Set oWb = oApp.Workbooks.Open("c:\essai.xls") Set oSh = oWb.Worksheets.Add Set oSh = oWb.Sheets(2) oSh.Range(oSh.Cells(1, 1), oSh.Cells(254, 254)).Copy oWb.Sheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ True, Transpose:=True oWb.Sheets(2).Delete oWb.Save oWb.Close False oApp.Quit Set oSh = Nothing Set oWb = Nothing Set oApp = Nothing End Sub

---

Attention toutefois dans excel, on est limité en nombre de colonne, ce qui signifie que le nombre de ligne à exporter est lui aussi limité