Discussion :

[pascalrouette]

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

[Invité]

Bonjour,

Remplacez le code créant la table par celui-ci :

Code :

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

1
2
3
 
.Tables.Add Range:=appwrd.Selection.Range, NumRows:=1, NumColumns:=2, _
 DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed

[pascalrouette]

Merci beaucoup, je n'arrive pas à croire que j'avais oublié ça.