Affichage bouton puis effacement

[steffguibo]

Bonjour,
j'ai une macro permettant l'impression de certaines pages d'un document avec un bouton, cependant j'aimerais que lorsque j'imprime ce document le bouton ne soit pas sur le document imprimé.
Merci de vos réponses

Code :

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
30
 
Private Sub CommandButton1_Click()
Dim fin As Boolean
Dim LeMot$, NoPagesAimprimer$
LeMot = "Doc à imprimer"
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = LeMot
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Do While Not fin
        fin = Selection.Find.Execute = False
        If Not fin Then
            NoPagesAimprimer = NoPagesAimprimer & ";" & Selection.Information(wdActiveEndPageNumber)
        End If
    Loop
    NoPagesAimprimer = Right(NoPagesAimprimer, Len(NoPagesAimprimer) - 1)
    msg = " Voulez-vous imprimer maintenant ?"
    ret = MsgBox(msg, vbYesNo, titre)
    If ret = vbYes Then
    Cancel = False
    End If
    If ret = vbNo Then
    Cancel = True
    Exit Sub
    End If
 
    ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Pages:=NoPagesAimprimer
End Sub

[Heureux-oli]

Tu peux toujours le mettre dans une barre d'outils !

[steffguibo]

non justement, il faut que le bouton soit sur le document car il est envoyé à plusieurs utilisateurs

Autre questions : Quand le msg apparait avec Oui/Non, peut on customiser cette boite

[ouskel'n'or]

Ton bouton est-il "flottant" ou ancré ? S'il est ancré, tu le sélectionnes comme un caractère et tu fais "Masqué"
S'il est "flottant", le problème est qu'il n'a pas la propriété Visible. Tu es obligé de le sortir de la feuille, d'éditer ton document, puis de le replacer là où il était. Ce qui donne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
Dim LeTop
Dim LeShape As Shape
    Set LeShape = ActiveDocument.Shapes(1)
    With LeShape
        LeTop = .Top
        .Top = -100
    End With
    DoEvents
    'Ton code pour l'édition
    '...
    DoEvents
    With LeShape
        .Top = LeTop
    End With
End Sub

A+

[Sepia]

Sinon en début de macro, tu n'as qu'à le rendre invisible (sans le supprimer) car sinon tu pourrais fausser ta pagination (si ton bouton est inséré dans ton texte, ancré ou non).

Et la bonne solution c'est bien celle de Heureux-oli. OUI, il fautle mettre dans la barre d'outils et dans ton texte tu colles un dessin que t'effaces comme ça, tu n'as qu'une seule fois le code sinon tu risque d'oublier des mises à jour si un jour tu corriges un bouton (et pas les autres)

[ouskel'n'or]

Envoyé par Sepia

Sinon en début de macro, tu n'as qu'à le rendre invisible (sans le supprimer) car sinon tu pourrais fausser ta pagination (si ton bouton est inséré dans ton texte, ancré ou non).

Le bouton de la boîte à outils contrôle n'a hélas pas la propriété visible. Mais peut-être as-tu une astuce

Et la bonne solution c'est bien celle de Heureux-oli. OUI, il faut le mettre dans la barre d'outils et dans ton texte tu colles un dessin que t'effaces comme ça, tu n'as qu'une seule fois le code sinon tu risque d'oublier des mises à jour si un jour tu corriges un bouton (et pas les autres)

Envoyé par steffguibo

non justement, il faut que le bouton soit sur le document car il est envoyé à plusieurs utilisateurs

Ceci dit il peut créer une barre d'outils et coller un bouton dessus à l'ouverture du document et la supprimer à la fermeture. Ce serait effectivement une solution.

[Sepia]

Salut,

La propriété Visible est disponible sur un CommandButton (regarde dans l'aide en ligne de Word). Mais sinon tu peux aussi t'amuser à changer la couleur de la police et la couleur du fond en blanc (sauf si tu imprimes en inverse comme ça arrive dans les bureaux d'études pour mettre en évidence des équipements, y compris à partir de Word).

[ouskel'n'or]

Alors on ne parle pas du même commandbutton
Pièce jointe 21890

[Sepia]

Salut,

Je ne sais pas duquel tu parles (mais à mon avis, il n'y en a qu'un) et voilà l'aide de Word et je sais pour avoir travailler en developpement avec Office, que Microsoft n'est pas toujours très propre mais en tout cas sa doc a, est et a toujours été remarquable.

[ouskel'n'or]

Je vois en face de ton bouton "Référence Visual Basic pour Microsoft Forms"
Le bouton dont tu parles ne serait-il pas le bouton placé dans un userform ?
C'est que Word a plein de boutons partout... Pas étonnant que ça nous flanque des boutons
A+

[Sepia]

Si mais je pense que c'est qu'il faut à steffguibo (enfin j'espère)

[Heureux-oli]

Envoyé par Sepia

Si mais je pense que c'est qu'il faut à steffguibo (enfin j'espère)

Il parle de bouton formulaire, puisque ce bouton se trouve sur le document.