Discussion :

[datacell33]

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 :

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

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 !

[datacell33]

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

Code :

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

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

C'es pareil...

[datacell33]

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 :

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

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...

[knopix77]

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