[AC-2003] définir légende bouton

[utan88]

Bonjour,

je cherche à coder la présentation d'un classeur excel généré depuis un état.

Mon but est d'ajouter un bouton sur la première page.

Jusqu'à la pas de soucis, mais lorsque j'essaye de mettre un texte sur le bouton sa marche tant que je ne sélectionne pas une cellule.

Voici le code que j'utilise

Code :

1
2
3
4
5
6
7
 
...
    aSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=62.25, Top:=100, Width:=106.5, Height:=53.25).Select
    aXL.Range("B2").Select
    aSheet.Shapes("CommandButton1").Name = "btn_test"
    aSheet.OLEObjects("btn_test").Object.Caption = "test"
...

Comment faire pour que le texte du bouton ne bouge pas?