Encore un soucis avec un objet.

[Eric D]

Bonjour,

J'ai encote un souci avec mon objet créé par ce code:

Set myDocument = ActiveSheet
With myDocument.Shapes.AddShape(msoShapeRectangle, 369, 412, 342, 200).Shadow

j'aimerais le changer de place donc j'ai fais ce code:

.Top = 12

dans la boucle with -End with, mais il ne bouge pas, j'ai également fais:

Sheets('Feuil1').OLEObjects('Cible').Top = 12

'Cible' ayant été affecté a .Name de l'obje. Pourriez vous encore m'aider svp je ne m'en sors pas?
Merci et bonne fin de journée.
Eric D