Exporter un classeur Excel sous le format Tableau

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 :
Pièce jointe 620735

Mais actuellement, j'ai :
Pièce jointe 620736

Car j'utilise :

Code:

---

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

---

Quelqu'un a-t-il une solution ?

Merci

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:

---

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

---

Citation:

---

Envoyé par hyperion13

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:

---

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:

---

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

---