Discussion :

[cchasse98]

Bonjour,


Dans mon tableau j'ai créer une zone d'édition.
J'aimerais copier le texte de la zone d'édition dans un autre tableau.
Utiliser VBA Word

Voici ce que j'ai essayé et sa ne fonctionne pas
NumRapport = ActiveDocument.Bookmark(NumRap).Range.Text

Merci

[Heureux-oli]

Salut,

Tu ne nous donnes pas assez d'info pour te fournir des informations correcte.

[cchasse98]

Voici, j'ai créé un tableau dans une des cellules j'ai ajouté une zone d'édition.

Ma zone d'édition je l'ai créé à partir de l'onglet développeur outils section zone hérité.

Je veux prendre le texte saisie dans la zone d'édition et le coller dans une cellule de mon tableau 2.

Dans les propriétés de ma zone d'édition j'ai mi cette macro en sortie.

Voici mon bout de code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub NumRap()
'
' NumRap Macro
'
    Dim NumRapport As String
 
    ActiveDocument.Unprotect
    NumRapport = ActiveDocument.Tables(1).Cell(2, 6).Range.Text
    ActiveDocument.Tables(2).Cell(1, 2).Range.Text = NumRapport
    ActiveDocument.Protect wdAllowOnlyFormFields
 
End Sub

Le texte se copie mais il fait un saut de ligne et ma cellule d'origine que je copie se retrouve vide.

Mon idée de départ était de le texte d'une cellule du tableau 1 à une cellule du tableau 2. Je n'ai pas trouvé comment le faire automatiquement sans avoir à ajouter un bouton de commande. C'est pourquoi j'ai opté pour cette solution.