Bonjour,
connaissez vous le moyen de transmettre un paramètre dans une macro qui est appelée par la commande OnAction d'un bouton Application.CommandBars("toto").Controls.Add ?
J'arrive bien à lancer un macro, mais si je veux transmettre un paramètre (qui correspond au nom ou tag du bouton), alors je coince...
Voici le bout de code incriminé (la boucle créé une série de menus, qui doivent tous exécuter la macro laison, mais avec un paramètre différent à chaque fois) :
Voir message d'erreur. Est-ce que ce n'est pas tout betement un pb d'apostrophe ou truc similaire ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Do With NouvSsMenu.Controls.Add(Type:=msoControlButton, ID:=702) .OnAction = "liaison """ & ActiveCell.Value & """'" .Caption = ActiveCell.Value .Tag = ActiveCell.Value End With ActiveCell.Offset(1, 0).Activate Loop Until ActiveCell.Value = ""
Merci pour votre aide.
![]()
Partager