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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager