problème passage paramètre entre procédure

Bonjour,
avec le code suivant :

Code:

---

1 2 3 4 5

Sub messagerie() Dim client As Long client = CommandBars(1).Controls("ma barre").Controls("EMail").Controls("Messagerie").ListIndex   End Sub

---

je récupère l'index d'une liste d'un sous menu après séléction par l'utilisateur sur on action du code suivant de ma barre menu "Messagerie"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Set Nouveau23 = Nouveau20.Controls.Add(msoControlDropdown, , , , True) With Nouveau23 .Caption = "Messagerie" .FaceId = 54 .Style = msoComboLabel .Tag = "Messagerie" .TooltipText = "Choisissez votre logiciel de messagerie" .OnAction = "messagerie" .AddItem ("Outlook Express") .AddItem ("Mozilla Thunderbird") .AddItem ("Office Outlook") .AddItem ("Une autre version pour Outlook2003") .AddItem ("Incredimail") .AddItem ("Office Outlook 2007") .AddItem ("Office2000OutLook") End With

---

. Je souhaite maintenant récupérer ma variable "client" pour l'utiliser dans un autre module.
J'ai écrit

Code:

---

1 2 3

Sub messagerie(client as Integer) client = CommandBars(1).Controls("ma barre").Controls("EMail").Controls("Messagerie").ListIndex End Sub

---

Seulement j'ai une erreur :argument non facultatif.
Si je rajoute :

Code:

---

.OnAction = "messagerie(client)"

---

j'ai une erreur "impossible de trouver la macro 'messagerie(client)'.
Bref, je ne sais pas comment m'en sortir.
Quel qu'un peut-il m'aider?
Merci d'avance.

Salut,

Je ne comprend pas très bien.

Code:

---

.OnAction = "messagerie(client)"

---

messagerie C'est le nom d'une de tes procedures???
Et client c'est une variable à transmetre?

Si c'est le cas essaye peut-être :

Code:

---

.OnAction = "messagerie(CStr(client))"

---

Dit moi ce que sa donne.

Bonjour

heu si tu n'as qu'une ligne de code pourquoi dans ton autre module ne pas mettre tout simplement

Code:

---

client = CommandBars(1).Controls("ma barre").Controls("EMail").Controls("Messagerie").ListIndex

---

Pour essayer de te répondre
Où as tu mis ton

Code:

---

.OnAction = "messagerie(client)"

---

Si tu veux utiliser la routine messagerie tu fais dans ton bouton

Code:

---

.OnAction = "tamacro"

---

dans tamacro

Code:

---

1 2 3 4 5

sub tamacro() dim client as integer   messagerie client .....

---

Autre chose, il me semble que tout ce qui est entre les guillemet est une chaine de caractère et ne sera pas interprété
"messagerie(CStr(client))"
va fonctionner si tu as effectivment une macro qui s'appelle messagerie(CStr(client))
ce qui est difficilement possible


En relisant le tout je me dis que des explication un peu plus claire serais souhaitable en fait.

Montre nous la macro qui a besoin de messagerie et comment tu l'appelles.