Discussion :

[Nelieru]

Salut à tous,

je suis face à un problème assez chiant à gérer... Comment faire pour que des boutons de commandes ou des listes déroulantes n'aparaissent pas à l'impression d'un document Word ?

J'ai chercher la propriété PrintObject comme dans Excel, mais elle n'y est pas...!!! Aparamment, on pourrait cacher ses boutons dans une zone de texte ... mais comment ?

Merci

[Heureux-oli]

Essaie de les cacher.

Tu selectionnes l'objet, Format Police et Caché.
Il sera présent en mode édition mais pas en impression.

[Nelieru]

Ok merci ca fonctionne =).

[Nelieru]

En réalité, non ca ne marche pas, car si je met en passe en mode édition, je n'ai plus accès aux boutons car ils sont cachés... Mes boutons sont reliés à des macros, si je ne peux plus les lancer, a quoi servent-ils ? -_-'...

[Heureux-oli]

En général, les boutons sont mis dans les barres d'outils.
C'est beaucoup plus facile à gérer.

[Nelieru]

A vrai dire, j'ai deux boutons et une liste déroulante de type combobox à cacher, donc pour les boutons je veux bien, mais mettre la liste déroulante dans une barre d'outil, ca m'arrange pas...

Y a t il un code en VBA qui dise que tel zone de texte sera caché quand une impression se lance ?

[Nelieru]

Je trouve quand même bizarre que Word ne propose pas l'option Print Object, surtout qu'Excel la... Personne n'a une idée pour du VBA ?

[Scoubi7]

Bonsoir,

Ayant le même problème, dans un premier temps je supprime mon bouton :

Code :

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

1
2
ActiveDocument.CommandButton1.Select
Selection.Delete

Puis, j'en recrée un :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ActiveDocument.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1").ConvertToShape.OLEFormat.Object
.AutoSize = False
.Caption = "Impression"
.Enabled = True
.Font.Underline = False
.Font.Size = 12
.Font.Bold = True
.Height = 34
.Width = 120
.Left = 254
.Top = 101
.Locked = False
.TakeFocusOnClick = True
End With

Mon souci est que j'ai beau avoir la ligne

Code :

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

.Font.Underline = False

le texte est toujours souligné... quelqu'un a-t-il une idée pour qu'il ne le soit pas ?

[E KERGRESSE]

Bonjour,

Perso, j'utilise la méthode préconisée par Olivier consistant à mettre les boutons dans la barre d'accès rapide.

Voir le mode opératoire ici : Lancer une macro depuis la barre d'accès rapide

L'exemple montré est sur Excel, mais la procédure est identique sur Word et Power-Point.

[Philippe Tulliez]

Bonjour Eric,
Ton lien ne fonctionne pas

[E KERGRESSE]

Bonjour Philippe,

Merci pour l'info.

Le fichier joint reprend la méthode sous une forme un peu différente pour une question de taille de fichier.