Discussion :

[dlecha]

Bonjour

Je cherche à insérer un bouton dans un document Word(2002) qui permettrai de réaliser les actions suivantes en un seul "click":

- Déprotéger le document
- Copier une ligne vierge d'un tableau existant
- Coller la nouvelle ligne
- Reprotéger le document

Merci encore pour votre aide

David

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Salut, il y a une chose que je ne comprends pas, pourquoi coller un ligne vierge d'un tableau ? Pourquoi ne pas simplement ajouter un ligne ?

La macro devrait faire ceci :

Code :

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

1
2
3
4
5
6
7
8
 
Sub MaMacro()
With ActiveDocument
    .UnProtect
    .Tables(1).Rows.Add
    .Protect
End With
End Sub

[dlecha]

Bonjour et bienvenue sur les forums Office de DVP.

Salut, il y a une chose que je ne comprends pas, pourquoi coller un ligne vierge d'un tableau ? Pourquoi ne pas simplement ajouter un ligne ?

Hello

Je souhaite sélectionner une ligne spécifique de mon tableau car celui ci n'est pas constant dans le nombre de colonne. Certaines lignes de mon tableau ont 4 colonnes et d'autres en ont 6.

Il s'agit en fait d'un document d'entretien annuel et d'évaluation. La fonctionnalité du bouton est de pouvoir rajouter des lignes d'objectifs si nécessaire.

Merci pour votre aide
A+
David

[Heureux-oli]

On peut ajouter le nombre de cellules que l'on souhaite.
Il n'est pas utile de copier une ligne vide.

Toutes fois si tu y tiens.
Il faut donc ouvrir un second document, et savoir quel est le tableau source.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oDoc1 as Document, oDoc2 As Document
Dim oTbl1 As Table, oTbl2 As Table
 
Set oDoc1 = ActiveDocument
Set oDoc2 = Documents.Open("LeCheminDeMonDocument")
 
Set oTbl1 = oDoc1.Tables(1)
 
'Suivant que l'on veut 4 ou 6 lignes le nr de la table change
Set oTbl2 =  oDoc2.tables(1).Rows.Last.Select
Selection.copy
otbl1.Rows.last.select
Selection.PasteAppendTable

[dlecha]

On peut ajouter le nombre de cellules que l'on souhaite.
Il n'est pas utile de copier une ligne vide.

Toutes fois si tu y tiens.
Il faut donc ouvrir un second document, et savoir quel est le tableau source.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oDoc1 as Document, oDoc2 As Document
Dim oTbl1 As Table, oTbl2 As Table
 
Set oDoc1 = ActiveDocument
Set oDoc2 = Documents.Open("LeCheminDeMonDocument")
 
Set oTbl1 = oDoc1.Tables(1)
 
'Suivant que l'on veut 4 ou 6 lignes le nr de la table change
Set oTbl2 =  oDoc2.tables(1).Rows.Last.Select
Selection.copy
otbl1.Rows.last.select
Selection.PasteAppendTable

Merci beaucoup pour ta réponse,

J'ai réussi à faire un bouton avec la commande suivante:

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton6_Click()
ActiveDocument.Unprotect
ActiveDocument.Tables(2).Rows.Add
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyFormFields
End Sub

Après plusieurs tests, le bouton fonctionne correctement, il déprotege le document, ajoute une ligne, puis reprotege le document.

Malheureusement en utilisant cette commande, il ajoute une ligne avec le bon nombre de colonne, mais il ne reporte pas le texte et/ou les champs de formulaires qui étaient dans le document initial.

De plus, je souhaiterai si possible ne pas avoir de 2eme document comme le suggère tes lignes de commande précédentes. Je souhaite ainsi éviter d'avoir à adresser plusieurs documents à l'utilisateur final.

J'espère avoir été suffisement clair dans mes explications.

Encore merci
A+
David

[Heureux-oli]

Bonjour



- Déprotéger le document
- Copier une ligne vierge d'un tableau existant
- Coller la nouvelle ligne
- Reprotéger le document

Merci encore pour votre aide

David

Tu n'avais pas dit que la ligne contenait quelque chose !

[Sepia]

Salut,


Utilises directement alors un Copier-Coller de ta ligne de tableau comme ça tu as ton nombre de lignes et leur contenu. Et si tu veux effacer ta ligne, sélectionne-la et utilise la commande "Tableau-Effacer".

@+

[dlecha]

Tu n'avais pas dit que la ligne contenait quelque chose !

Salut Oli

Je te prie de m'excuser pour la confusion de mon message. Je ne suis vraiment débutant dans Word

Merci quand même
David

[dlecha]

J'ai enfin trouvé une solution simple:

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
ActiveDocument.Unprotect
ActiveDocument.Tables(3).Rows.Last.Select
Selection.Copy
Selection.Paste
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyFormFields
End Sub

Encore merci à tous pour votre aide

A+
David