Bonjour,

Je me lance dans la programmation sous VBA. J'ai réalisé un UserForm sous Word et j'aimerai me servir des données saisies dans le UserForm pour les intégrer à un tableau word.

Il faudrait pouvoir ajouter une ligne à ce tableau pour intégrer les données saisies à chaque validation du USerForm.

Pour l'instant, j'arrive à intégrer mes données sur une ligne dans lequel j'ai intégrer des bookmarks mais lorsque j'ajoute une ligne au tableau les bookmarks ne suivent pas.

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
Private Sub Valider_Click()
 
    Dim x As Integer
    ActiveDocument.Tables(8).Rows.Add
    x = ActiveDocument.Tables(8).Rows.Count
    ActiveDocument.Tables(8).Rows(x - 1).Range.Copy
    ActiveDocument.Tables(8).Rows(x).Range.Paste
 
With ActiveDocument
      .Bookmarks("TextRef").Range.Text = TextRef.Value
      .Bookmarks("TextActivite").Range.Text = TextActivite.Value
      .Bookmarks("TextRessource1").Range.Text = ComboBox1.Value
      .Bookmarks("TextRessource2").Range.Text = TextDefinitionRessource.Value
        .Bookmarks("TextPeril1").Range.Text = ComboBox2.Value
      .Bookmarks("TextPeril2").Range.Text = TextBox1.Value
       .Bookmarks("TextObjectif").Range.Text = ComboBox3.Value
      .Bookmarks("TextGravite").Range.Text = ComboBox4.Value
      .Bookmarks("TextFrequence").Range.Text = ComboBox5.Value
      .Bookmarks("TextCriticite1").Range.Text = TextCriticiteBrute.Value
      .Bookmarks("TextMaitrise1").Range.Text = ComboBox6.Value
      .Bookmarks("TextMaitrise2").Range.Text = TextBox2.Value
      .Bookmarks("TextCriticite2").Range.Text = TextBox3.Value
 
 
End With
 
 Unload Me
 
End Sub
Comment faire ?

*Merci*