Comment créer un tableau sous Word à partir de VBA Excel

Bonjour,
J'ai un petit souci aujourd'hui, j'ai bien cherché mais rien à faire...
Comment crée-t-on un tableau Word dans un document Word ?
J'ai crée mon instance Word, ouvert un document (ou créé un nouveau), je le lis, j'en fais ce que je veux, j'écris ce que je veux, mais rien à faire, je n'arrive pas à insérer un nouveau tableau. Le pire c'est que j'arrive à insérer des colonnes ou lignes dans des tableaux existant !

Code:

---

1 2 3 4 5 6

Set WordApp = CreateObject("word.application") Set WordDoc = WordApp.Documents.Open("C:\TOTO.doc") ' WordDoc.Tables.Add Range:=Selection.Range, NumRows:=9, NumColumns:= _ 6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed

---

L'erreur est :

Nombre d'arguments incorrects ou affectation de propriété incorrecte...

Bien sur, le code équivalent s'exécute sans problème à partir de VBA sous word... Je précise que j'ai bien ajouté la référence Word dans les références...

Merci pour votre lumière !

:)

J'ai également essayé comme indiqué dans la FAQ VBA :

Code:

---

Set objTable = WordDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, NumColumns:=3)

---

C'es pareil... :cry:

OK, j'ai fini par trouver...

Il y avait une ambiguité sur l'objet Selection, car l'objet existe bien sur pour Excel également... Il fallait préciser MyDoc.Selection

Code:

---

1 2 3

Set MyDoc = WordApp.Documents("test1.doc").ActiveWindow WordDoc.Tables.Add Range:=MyDoc.Selection.Range, NumRows:=9, NumColumns:= 6

---

Le piège c'est que le code de la FAQ était du code VBA Access, pour lequel l'objet Selection ne doit pas être ambigu... Alors qu'à partir d'Excel oui...

:ccool:

Juste un petit merci, tu viens de me sauver la vie avec ton code :ccool: