Discussion :

[angetec]

Bonjour,
avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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.

[jojo86]

Salut,

Je ne comprend pas très bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

Dit moi ce que sa donne.

[Krovax]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.OnAction = "messagerie(client)"

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.OnAction = "tamacro"

dans tamacro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.