Discussion :

[christophe31]

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

[Tofalu]

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 :

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
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é