Discussion :

[manudad]

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) :

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 = ""

Voir message d'erreur. Est-ce que ce n'est pas tout betement un pb d'apostrophe ou truc similaire ?

Merci pour votre aide.