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 : Sélectionner tout - Visualiser dans une fenêtre à part
 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!