Lancer macro avec parametres depuis bouton

[gecanosaga]

Bonjour à tous,

Alors voilà mon soucis, je dévelope une macro qui, lorsqu'elle rencontre un certain type d'erreur, crée un bouton devant la case où il y a cette erreur. Une fois la macro finie l'utilisateur peux cliquer sur le bouton, ce qui lance un script qui envoi automatiquement un mail à la personne responsable de l'erreur.
Mon seul soucis et de passer un paramètre à la macro qui envoi le mail afin de pouvoir identifier à qui l'envoyer.

J'espère avoir été assez clair. en tout cas si vous pouviez m'aider ça serait sympa merci.

 

[job75]

Re : Lancer macro avec parametres depuis bouton

Bonjour gecanosaga,

Si vous créez des boutons type "formulaire" c'est assez simple.

Le nom du bouton est alors donné par Application.Caller.

1) Renommer (en le créant) le bouton, par exemple TOTOµBouton 1.

2) Affecter la même macro à chaque bouton, et dans celle-ci récupérer le nom (TOTO) par ce code :

nom = Left(Application.Caller, InStr(Application.Caller, "µ") - 1)

Edit : µ paraît mieux que l'espace ou même le tiret bas.

A+

 

[gecanosaga]

Re : Lancer macro avec parametres depuis bouton

Merci pour ta réponse job75.

Franchement c'est une super astuce et toute simple en plus !!!

Merci