Discussion :

[laurie31]

Bonjour a tous,

J'ai un problème dans le cadre de mon travail avec l'activation d'une macro à l'aide d'un bouton de commande.

je vous expose mon problème : J'ai un formulaire avec une certaine mise en forme qui s'étend sur une page, et j'aimerais qu'avec une simple pression sur un bouton de commande situé sur cette même page, cette dernière se duplique à la suite, sans que le formulaire ne soit rempli, et quel que soit la place du curseur sur la page.

Je n'ai aucune notion en codage ou en macro. J'ai essayé de résoudre mon problème avec les outils simple de word, mais le résultat obtenus ne me satisfait pas. Ce document est amené à être utilisé par beaucoup de monde, c'est pour cela que je veux une utilisation simple et cadrée de ce dernier.

J'espère que mon problème n'en sera pas un pour les utilisateurs avertis que vous êtes je vous joint mon fichier pour faciliter la résolution.

Cordialement,

Laurie

[QuestVba]

Bonjour,

Avec la barre "Boite à outils contrôle", tu ajoutes un bouton de commande.

En mode création, tu dble cliques dessus ettu colles le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
    Selection.WholeStory
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Paste
 
End Sub

Tu peux voir aussi ceci: http://support.microsoft.com/kb/246299/fr

[laurie31]

bonjour lionel,

merci beaucoup de votre réponse, cela fonctionne parfaitement! c'est exactement ce que je voulais! encore merci, et si j'ai d'autres problèmes je n'hésiterais pas a me retourner vers vous!

bisous,
laurie

[laurie31]

Re bonjour,

J'ai encore un tout petit souci! bon je chipotte, mais j'aime bien que les choses soit bien faites.

J'arrive maintenant à copier sans souci une nouvelle page avec tout les champs grâce au code de Lionel.

j'aimerais que quand mes zones de texte se copient sur la nouvelle page, elle redeviennent vide, prête a recevoir une nouvelle saisie.

Autre point, je voudrais protéger mon document en faisant une restriction de modification et en n'autorisant que le remplissage de formulaire afin d'éviter que tout les futurs utilisateurs ne modifient à leur grès la mise en page. lorsque j'active la protection, et que je veux par la suite créé une nouvelle page avec le bouton "create a new page" (cf post précédent) le système beuge sur Selection.WholeStory. Ceci me parait normal vu que mes blocs sont maintenant protégé... Serait il par contre possible de contourné cette protection?


je vous remercie par avance de votre aide précieuse !

laurie

[carden752]

Bonjour,
Pour enlever la protection, il suffit d'utiliser la méthode unprotect dans la macro puis

Code :

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

activedocument.unprotect "motdepasse"

La méthode protect permettra de la réactiver.


Pour effacer le texte de toutes les zones de texte, tu peux tester une procédure comme celle-la.

Code :

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

1
2
3
4
5
6
7
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextBox Then
sh.Select
Selection.Text = ""
End If
Next