Word Masquer temporairement un bouton macro VBA

Azuveus · 30 Septembre 2021

Bonjour à tous,
Je souhaiterais pouvoir masquer le bouton temporairement,

Je m'explique
Lorsque je clique sur ce bouton cela créé une copie de ce fichier (avec un autre nom) qui est sauvegarder dans un dossier puis envoyé par mail (tout cela automatiquement).

J'aimerais que dans cette "copie" le bouton n'apparaisse plus...

J'ai essayé,

VB:

Bouton.visible = false

mais etant donné qu'il s'agit du bouton sur lequel je clique, cela ne marche pas...
Auriez vous une solution svp ?

Merci d'avance,
Azuveus.

Azuveus · 2 Octobre 2021

Bonsoir,
Merci @Phil69970 !
J'ai contourné le problème, j'ai masquer l'item en mettant la propriété height et width a 0.
J'ai pu ensuite remettre mon bouton a ses dimensions précédentes.

Azuveus.

Phil69970 · 30 Septembre 2021

Bonjour @Azuveus

Dans l'exemple ton bouton s'appelle "CommandButton1"

VB:

Private Sub CommandButton1_Click()
Worksheets(Feuil1.Name).OLEObjects("CommandButton1").Visible = True
'le reste de ton code blablabla.....
End Sub

le bouton disparait et tu poursuis ton code

*Merci de ton retour

@Phil69970

Azuveus · 30 Septembre 2021

Bonsoir @Phil69970

Merci pour ce retour, sachant que ce n'est pas du Excel mais du Word, j'ai essayé :

VB:

ActiveDocument.OLEObjects("CommandButton1").Visible = False

mais cela ne marche pas.
Une solution pour un document Word ?

Merci,
Azuveus

Phil69970 · 1 Octobre 2021

Bonjour @Azuveus

Pour word je suis pas bon du tout

2 pistes :

1)Peut être à transposer pour ton cas

VB:

For Each bouton In ActiveDocument.InlineShapes
'S'il s'agit d'un bouton :
If bouton.Type = wdInlineShapeOLEControlObject Then
'Alors on le masque :
bouton.Range.Font.Hidden = True
End If
Next bouton

2)Propriété du bouton de commanade
Ton bouton -> Format de contrôle -> Propriétés ->

Après joker pour moi....

@Phil69970

Azuveus · 2 Octobre 2021

Bonsoir,
Merci @Phil69970 !
J'ai contourné le problème, j'ai masquer l'item en mettant la propriété height et width a 0.
J'ai pu ensuite remettre mon bouton a ses dimensions précédentes.

Azuveus.

Word Masquer temporairement un bouton macro VBA

Azuveus

XLDnaute Nouveau

Azuveus

Phil69970

XLDnaute Barbatruc

Azuveus

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Azuveus

XLDnaute Nouveau

Discussions similaires