Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Résolu] Copier des boutons avec le lien vers la macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mdidish
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mdidish

XLDnaute Junior
Bonjour
J'ai un problème concernant la copie de boutons d'un classeur vers un autre.
Dans une macro, j'ai à un moment besoin de copier l'ensemble des boutons présents dans une feuille vers une feuille d'un autre classeur.

J'ai un classeur WB1 qui contient des boutons :
- bouton 1 lié à la macro "test1"
- bouton 2 lié à la macro "test2"

J'ai un autre classeur (WB2) qui contient également des macros dénommées "test1", "test2", ...

Je copie les boutons de WB1 vers WB2 avec ce code :
VB: 
Workbooks("WB2").Worksheets("Feuil1").DrawingObjects.Delete
Workbooks("WB1").Sheets("Commandes").DrawingObjects.Copy
Workbooks("WB2").Worksheets("Feuil1").Activate
ActiveSheet.Range("A8").Select
ActiveSheet.Paste

Ca marche, mais les boutons collés dans WB2 dirigent vers les macros de WB1 : "'WB1.xlsm'!Test1".
Comment faire pour qu'ils dirigent vers "Test1" (la macro contenue dans WB2, et non dans WB1) ?

Merci
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Copier des boutons avec le lien vers la macro

Bonjour mdidish,

Une piste dans les fichiers joints. Le code:
VB: 
Sub Copie_Bouttons()
Dim shp As Shape, tablo
  Workbooks("mdidish-WB2.xlsm").Sheets("Feuil1").DrawingObjects.Delete
  Workbooks("mdidish-WB1.xlsm").Sheets("Feuil1").DrawingObjects.Copy
  Workbooks("mdidish-WB2.xlsm").Worksheets("Feuil1").Activate
  ActiveSheet.Range("A1").Select
  ActiveSheet.Paste
  For Each shp In Workbooks("mdidish-WB2.xlsm").Worksheets("Feuil1").Shapes
    If shp.OnAction <> "" Then
      tablo = Split(shp.OnAction, "!")
      shp.OnAction = "mdidish-WB2.xlsm" & "!" & tablo(UBound(tablo))
    End If
  Next shp
  [A1].Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copier des boutons avec le lien vers la macro

Merci beaucoup pour la réponse ; je sentais que la solution viendrait d'un split mais je ne savais pas du tout comment l'exécuter.
C'est chose faite.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
413
zendb
Z
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
592
Nadou69
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
659
robpellan52
R
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
546
INFINITY100
I
K
  • Résolu(e)
XL 2016 Créer une macro pour uniquement copier le contenu d'une cellule
Réponses
12
Affichages
2 K
KenJ
K
D
  • Résolu(e)
XL 2019 VBA - Copier Coller d'un fichier A vers fichier B
Réponses
2
Affichages
718
drizzydunck
D
L
  • Résolu(e)
XL 2016 VBA : Copier des valeurs entre deux fichiers
Réponses
4
Affichages
874
Leché
L
M
  • Résolu(e)
Microsoft 365 [VBA] Copier une/des colonne(s) d'une feuille vers une autre avec un critère.
Réponses
3
Affichages
1 K
maxime45
M
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
371
crocrocro
C
D
  • Résolu(e)
XL 2013 Copie vers un autre classeur avec condition
Réponses
2
Affichages
1 K
Dafaka7
D
A
  • Résolu(e)
XL 2019 Inversion date avec macro import
Réponses
14
Affichages
1 K
Arnaud59000
A
O
  • Question Question
XL 2019 copier des lignes d'une feuille Excel vers une autre feuille d'un même classeur a partir dune condition
Réponses
4
Affichages
1 K
otando
O
A
  • Résolu(e)
XL 2013 Actionner les commandes présentes dans d'autres feuilles
Réponses
3
Affichages
958
arnoldbrice19
A
D
  • Question Question
XL 2010 Macro simple pour copier/couper/coller des lignes à la suite des autres d'une feuille à une autre
Réponses
3
Affichages
1 K
st007
S
R
  • Question Question
Microsoft 365 Copier des données d'un fichier à un autre en vérifiant si elles existent déjà
Réponses
1
Affichages
661
yal
Y
M
  • Question Question
Microsoft 365 Import d'un fichier .xlsx et analyse des données en VBA
Réponses
3
Affichages
2 K
Massy1
M
P
  • Question Question
XL 2016 Macro, Copier coller des cellules fusionnées en fonction d'un texte
Réponses
1
Affichages
831
Deadpool_CC
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
S
  • Résolu(e)
Microsoft 365 automatiser macro pour copier/coller des données d´un classeur à un autre et sauver à chaque fois le classeur rempli
Réponses
8
Affichages
4 K
sevenkingdom
S
  • Question Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…