Mise en forme Excel sous forme de tableau

[joss]

A la fin d'un export Excel en LS, j'ai cherché comment insérer un tableau au sens Excel 2007 ("Mettre sous forme de tableau"). En butinant, j'ai trouvé ce sympathique code qui met en forme et active les filtres :

Code : Tout sélectionner

With xlSheet.ListObjects
   xlsheet.Range("A1").Select
   Call .Add(1, xlsheet.Range(xlsheet.Cells(1,1), xlsheet.Cells(maxrow,maxcol)), , 1)
End With

on peut ajouter :

Code : Tout sélectionner

xlsheet.cells.entirecolumn.autofit