Word Masquer temporairement un bouton macro VBA

[Azuveus]

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é,

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.

 

[Phil69970]

Bonjour @Azuveus

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

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]

Bonsoir @Phil69970

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

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

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

Merci,
Azuveus

 

[Phil69970]

Bonjour @Azuveus

Pour word je suis pas bon du tout 😭

2 pistes :

1)Peut être à transposer pour ton cas

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]

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.