Excel 2007 : Tableau de style dans un prog vb

Bonjour,
Je souhaiterais mettre un ensemble de données sous forme de tableau : style de tableau clair1.

Voici le code vba

Code:

---

1 2 3 4

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$a$2:$i$10"), , lNo).Name "Tableau1" Range("Tableau1[#All]").Select ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight"

---

et voici mon code

Code:

---

1 2 3 4 5 6 7 8

Dim Plage As Microsoft.Office.Interop.Excel.Range   Plage = xlWorkSheetOne.Range("a2:i10")     xlWorkSheetOne.Names.Add("Tableau1", Plage) xlWorkSheetOne.ListObjects("Tableau1").TableStyle = "TableStyleLight1"

---

A la dernière ligne, il marque un code d'erreur : Index non valide. (Exception de HRESULT : 0x8002000B (DISP_E_BADINDEX))

Merci d'avance pour votre aide.

Bonjour,

Il faut, sauf erreur, alimenter la liste d'objets.
A tester :

Code:

---

1 2 3

xlWorkSheetOne.ListObjects.Add(Excel.XlListObjectSourceType.xlSrcRange, _ Plage, False, Excel.XlYesNoGuess.xlYes).Name = "Tableau1" xlWorkSheetOne.ListObjects("Tableau1").TableStyle = "TableStyleLight1"

---

Un grand merci ça fonctionne parfaitement.