OnAction avec un argument (syntaxe ?)

Bonjour,

Situation :
J'ai créer une barre d'outil destinée à ouvrir des fichiers contenu dans un répertoire.
Je scann donc le répertoire à la recherche des fichiers et je crée un menu dynamiquement.
Le menu se présente sous forme de pop-up (listant les fichiers trouvés) dont chaque sous-menu porte le nom du fichier.

Le but étant que lorsqu'on clique sur le nom du fichier, Excel ouvre ce fichier.

J'arrive à créer mon menu mais je ne sais pas comment associer une action diférente lors de la création dynamique du menu.
En fait, il suffirait que je puisse éxécuter ma macro avec un argument
mais je ne sais pas comment associer un argument avec la méthode OnAction.

illustration du problème

Code:

---

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

'ma macro avec un argument Sub Macro1(argument) MsgBox "Message : " & argument End Sub _______________________________________________________   Sub MorceauDeCode() '...' ' je passe les détails pour se concentrer sur ce qui ne marche pas ... .OnAction = "Macro1" '... End Sub

---

Si la macro s'exécute, un message d'erreur me mettra "argument non-facultatif

Quelle syntaxe utilisé pour faire passer un argument ?

re:

voici un exemple comment je lance une macro avec parametres

ce bout de code provient d'un de mes programmes de génération de menu popup

Il defini le OnAction avec passage de parametres

Code:

---

1 2 3 4

With sm(i, j) .Caption = Sheets("Menu").Cells(i, j + 2).Value .OnAction = "gw_lance(" & CStr(Sheets("Menu").Cells(i, nbc_menu + 4)) & ")" End With

---

cordialement

Cette méthode ne fonctionne pas avec moi.

Je n'ai plus le message d'erreur "argument facultatif" mais Excel ne trouve pas la macro !

Si j'écris ça :

Code:

---

.OnAction = "Macro1(" & CStr(argument) & ")"

---

j'aurai comme message d'erreur :
impossible de trouver la macro 'Macro1(argument)'

A force de persévérance, j'ai trouvé ma réponse ici : http://www.mrexcel.com/archive/VBA/7264.html (un message qui date de 7 ans !!)

.OnAction = "'Macro1 " & Chr(34) & argument & Chr(34) & "'"

Code:

---

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

Sub ExtraitExemple() '[...]   With Option .Caption = NomFichier .FaceId = 156 .OnAction = "'OuvrirFichier " & Chr(34) & NomFichier & Chr(34) & "'" End With '[...] End Sub ________________________________________________ Sub OuvrirFichier(NomFichier) Application.Workbooks.Open (CheminParDefaut & NomFichier & ".xls") End Sub

---

Maintenant mon menu dynamique fonctionne bien :D