Bonjour !

Petit état des lieux pour un problème que je soupconne être lié à la mémoire :

- J'ai stocké une image dans le control image (Image1) d'un formulaire (MonUserForm).

- Ceci me permet par la suite d'attribuer cette image à une variable objet que j'apelle monImage.

- Enfin, je me sert de monImage pour définir la propriété Picture d'un commanButton que je créé dynamiquement sur une Sheet de mon Workbook


Problème, l'exécution du code marche la première fois. Mais la réexécution du code plante.
Le plus souvent, pas de code erreur, Excel plante. Quelquefois cependant, code erreur bizarre du genre -21546785214 (8450111)

Est-ce que quelqu'un à une idée

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim monImage as Object
Dim newButton as OLEObject
 
Set wbGAM = ThisWorkbook
Set wbNEW = ActiveWorkbook
 
wbGAM.Activate
Set monImage = MonUserForm.Image1.picture
 
wbNEW.Activate
Set newButton = wbNEW.ActiveSheet.OLEObjects.Add
("Forms.CommandButton.1")
 
 
With newButton
    .Left = 496.5
    .Top = 163.5
    .Width = 197.25
    .Height = 111
    .Object.Picture = monImage
End With
 
...