Comment lancer une macro dont le nom est contenu dans une cellule

[toine2010]

Bonjour,
J'ai le problème suivant :
Dans une cellule, j'indique le nom d'une macro à exécuter (parmi une dizaine). Je souhaite qu'une autre macro reconnaisse le contenu de la cellule et lance la macro correspondante, j'ai essayé avec ce code :

Sub bulletin
Dim codeclient As String
codeclient = Range("A6").Value
Run ([codeclient])
End sub

J'ai un message qui m'indique qu'il ne trouve pas la macro alors qu'elle est bien présente!

Pourriez-vous m'aider?
Merci!

 

[jp14]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Bonjour

A tester
Ecrire "Application.Run"

JP

 

[toine2010]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Merci, mais hélas tjs le même message d'erreur...
A+

 

[jp14]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Bonjour

Il faut supprimer les accolades[]

JP

 

[Pierrot93]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Bonjour,

le nom de la macro en A1, ceci fonctionne chez moi :

Option Explicit
Sub test()
Application.Run Range("A1").Value
End Sub

attention à l'endroit ou se trouve la procédure si celle ci est déclarée en "private"...

bonne soirée
@+

 

[toine2010]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Merci, sur mon fichier, j'ai le message suivant :
Impossible d'executer la macro "xx" il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient desactivées"
Ce qui n'est pas le cas puisque quand je les lance par l'interface macro ça fonctionne correctement!...
A+

 

[Pierrot93]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Re,

comme je disais tout à l'heure...

attention à l'endroit ou se trouve la procédure si celle ci est déclarée en "private"...

 

[toine2010]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Désolé mais comment gère t'on ça??
A+

 

[pascal21]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

bonsoir

Sub bulletin
Dim codeclient As String
codeclient = Range("A6").Value
Run ([codeclient])
End sub​

ne manque-il pas les () après bulletin
mais je ne pense pas que tu es fais cette erreur là
trop simple

 

[toine2010]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Ok, je mets le nom de la macro dans la cellule avec cette dfonction;
Private Sub TextBox4_Change()
Windows("QSA.xlsm").Activate
Sheets("Clients").Select
Range("A6").Value = BulletinIsole.TextBox4.Text
End Sub

J'ai remplacé private par public mais ça ne fonctionne pas mieux...
A+

 

[MJ13]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Bonjour à tous

Bon, la je pense que le fichier s'impose .

 

[toine2010]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Voici un extrait du fichier
A+

 

[MJ13]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Re

Merci pour le fichier :

Tu peux tester ce code:

Sub test()
Application.Run ThisWorkbook.Name & "!" & Cells(1, 1).Value
End Sub

 

[toine2010]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Dsl mais tjs la même erreur!...
A+

 

[MJ13]

Re : Comment lancer une macro dont le nom est contenu dans une cellule

Re

Et si dans le fichier tu cliques sur Test, as-tu une erreur ou vois-tu le message