Insertion de tableau (Excel vers Word)
Bonjour a tous,
J'essai d'insérer un tableau dans Word a partir de formulaire excel.
En gros j'essaie de faire un tableau d'une ligne et de deux colonne à l'endroit ou j'ai mis un signet.
j'ai essayé différentes pistes sur le forum et ailleurs sur internet et rien n'y fait. Les codes trouvés sur l'internet fonctionne en solitaire, mais dès que je les incorpores a mon code j'obtiens toujours l'erreur 450.
il ne me reste que cette étape pour finaliser mon document. Je joins une partie tronquée de mon code pour alléger l'analyse, mais elle reste fidèle a l’original.
Merci à l'avance pour votre aide et merci au forum qui m'a déjà beaucoup aidé.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Sub inserer_tableau()
Dim appwrd As Word.Application
Set appwrd = New Word.Application
With appwrd
'création du document
.Visible = True
.Activate
.Documents.Add
With .Selection
.TypeText ("le tableau ne fonctionne pas")
.TypeParagraph
.TypeParagraph
.Bookmarks.Add Name:="logoCAA"
.TypeParagraph
.GoTo what:=wdGoToBookmark, Name:="logoCAA"
.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
End With
End With
End Sub |