Impossible d'afficher l'image

Bonjour le forum,

Je vais directement aller à l'essentiel. J'ai un classeur xlsm (que je vais appeler X) dans lequel j'ai des boutons (formes) et une image.
Dans un autre classeur (Y), j'ai créée une macro me permettant de copier l'onglet du classeur X sur le Y. Ensuite, sur chacun des boutons
et j'ai une macro me permettant d'y affecter automatiquement des macros. Mon image est affectée à une macro avec

Code:

---

Selection.OnAction = "TEST"

---

.
Le but est ensuite de fermer le classeur X car seul le Y m'intéresse par la suite.

Voici ma macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

WbActif = ActiveWorkbook.Name 'Variable du classeur Y Workbooks.Open FileName:="G:\DOCUMENTS\X.xlsm", UpdateLinks:=0 'Ouvrir le classeur X Sheets(1).Select 'Sélectionner feuille 1 du classeur X ActiveWorkbook.Sheets(1).Copy After:=Workbooks(WbActif).Sheets(Sheets.Count) 'Copier feuille 1 du classeur X dans classeur Y   Sheets(1).Shapes.Range(Array("AFFECTER_MACRO")).Select 'Sélectionner l'image AFFECTER_MACRO Selection.OnAction = "TEST" 'Affecter la macro TEST à l'image AFFECTER_MACRO   Windows("X.xlsm").Activate ActiveWindow.Close

---

Cependant, il y a à vrai dire 2 problèmes que je rencontre. Si je laisse le code comme-ceci, mon image est bien affectée à la macro TEST.
Par contre, lorsque j'essaie d'enregistrer mon classeur (Y), j'ai un message m'informant qu'il y a eu un problème lors de l'enregistrement etc...
En mettant les 2 lignes suivantes avant l'affectation des macros sur mon image et mes formes, ce problème d’enregistrement disparaît mais un autre problème intervient.
Mon image ne s'affiche pas. Un message "Impossible d'afficher l'image" s'affiche à la place. pourtant ma macro y est bien affectée...
J'ai essayé de la compresser mais rien n'y fait...

Merci pour votre aide!

Personne pour une petite aide ? :/

Bonjour,

On ne cesse de le dire et le redire : il faut éviter d'employer .Select (et donc Selection) et les objets actifs.
Il faut aussi toujours s'assurer que les méthodes et propriétés concernent le bon Objet (une fenêtre n'est pas un classeur).
Pour cela il est préférable d'utiliser des variables objets.
J'ai pas testé mais j'aurais écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Sub xxx() Dim wbY As Workbook Dim wbX As Workbook Dim shp As Shape   'Classeur Y Set wbY = ActiveWorkbook 'Ouvrir le classeur X Set wbX = Workbooks.Open(Filename:="G:\DOCUMENTS\X.xlsm", UpdateLinks:=0) 'Copier feuille 1 du classeur X dans classeur Y wbX.Sheets(1).Copy After:=wbY.Sheets(wbY.Sheets.Count) 'Sélectionner l'image AFFECTER_MACRO du classeur Y Set shp = wbY.Sheets(1).Shapes("AFFECTER_MACRO") 'Affecter la macro TEST à l'image AFFECTER_MACRO shp.OnAction = "TEST" wbX.Close   End Sub

---

Bonjour Patrice740,

Merci pour votre réponse.
ça a l'air de mieux fonctionner comme ceci merci.