Discussion :

[zoom61]

Salut,

Est-il possible d'exporter une requête Access dans Excel mais cette dernière soit enregistrée comme un tableau (dans Excel, il faut aller dans Insertion/Tableau) ?

Je voudrai en ouvrant mon fichier Excel obtenir ceci :


Mais actuellement, j'ai :


Car j'utilise :

Code vb :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "R_LISTING_EXTRACT", NFichier, True, ValDate

Quelqu'un a-t-il une solution ?

Merci

[hyperion13]

Salut,
Si depuis Acc tu lançais l'ouverture du classeur peut-être qu'avec l'objet ListObject et la métode ListObjects.Add, tu pourrais y arriver.

Code :

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

ActiveWorkbook.Sheets("Feuil1").ListObjects.Add(xlSrcRange, Range("$A$1:$D$2"), , xlYes).Name = "Tableau1"

[zoom61]

Si depuis Acc tu lançais l'ouverture du classeur peut-être qu'avec l'objet ListObject et la métode ListObjects.Add, tu pourrais y arriver.

Code :

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

ActiveWorkbook.Sheets("Feuil1").ListObjects.Add(xlSrcRange, Range("$A$1:$D$2"), , xlYes).Name = "Tableau1"

Ceci fonctionne, mais il ne faut pas oublier de définir les variables :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Surtout ne par oublier ces lignes
Public Const xlSRCRange As Integer = 1
Public Const xlYes As Integer = 1
...
    Set oAppExcel = CreateObject("Excel.Application")
    Set oClasseur = oAppExcel.Workbooks.Open(NFichier)
    Set oFeuille = oClasseur.WorkSheets(1)
    NbTot = oFeuille.Range("A65536").End(xlUp).Offset(1, 0).Row - 1
    Set oCell = oFeuille.Range("A1:AT" & NbTot)
    oAppExcel.CutCopyMode = False
    oFeuille.ListObjects.Add(xlSRCRange, oCell, , xlYes).Name = "Tableau1"
    oClasseur.Save
    oAppExcel.Quit
    Set oAppExcel = Nothing
    Set oClasseur = Nothing