Discussion :

[Asghaard]

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 :

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

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 ?

[wilfried_42]

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 :

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

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

[Asghaard]

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 :

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

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

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

[Asghaard]

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 :

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

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