Lancer une macro d'un XLA

[ericTA]

Bonjour à tous,
Voilà j'ai un fichier Eric.XLA qui s'ouvre à l'ouverture d'Excel avec des macros, si je lance une macro à partir d'un bouton ça marche. Mais est-il possible à partir d'une nouvelle feuille sous VB de lancer une macro de Eric.xla est pouvoir ainsi me faire une bibliothèque de macros.

Exemple dans Eric.Xla j'ai une macro qui ouvre un USER avec la liste des mois est quand je double clic me copie le mois sélectionné dans la cellule active.

J'aimerais pouvoir utiliser cette macro comme une commande VB dans des nouvelles feuilles.
Est-ce possible?
Merci d'avance.
Eric

 

[Pierrot93]

Re : Lancer une macro d'un XLA

Bonjour Eric,

essaye peut être ainsi :

Application.Run "Eric.xla!NomDeLaMacro"

il faut bien evidement que la macro complémentaire soit disponible dans la liste (barre de menu Excel => outils=> macros complémentaires)...

bonne fin d'après midi
@+

 

[RENAUDER]

Re : Lancer une macro d'un XLA

Bonjour,
J'ai crée une barre d'outils personnalisée (perso.xla) et qui est donc active en permance et sans problème je peux l'utiliser si j'ouvre un nouveau classeur.
Pour ton cas, il n'y pas de problème.
Exemple de barre perso:
Chaque bouton lance une macro du perso.xla

 

[ericTA]

Re : Lancer une macro d'un XLA

Merci Pierrot93 c'est exactement ce que je cherchais.
Mais il y a-t-il un moyen de récupérer une variable. je m'explique.
Dans mon exemple quand j'ai sélectionné un mois je la copie dans la cellule active, mais j'aimerais pouvoir par la même manip plutôt que de copier le résultat dans la cellule seulement récupérer la valeur "mois".
J'ai essayé de remplacer le SUB par une function ListeMois qui me retourne la valeur du mois sélectionné, mais comme faire avec
Application.Run "Eric.xla!NomDeLaMacro"
pour la récupérer?

j'ai essayé Application.Run mois = "Eric.xla!NomDeLaMacro" mais ça ne marche pas.
Merci d'avance.



Eric

 

[Pierrot93]

Re : Lancer une macro d'un XLA

Re,

pas tout compris (tu trouves quoi ? où?), regarde le code ci-dessous si il peut t'aider :

With Workbooks("Eric.xla")
    .IsAddin = False
    MsgBox .ActiveSheet.Range("A1").Value
    .IsAddin = True
End With

@+

 

[Pierrot93]

Re : Lancer une macro d'un XLA

Re

Aarf, tu veux peut être passer un argument à ta procédure dans le xla, si c'est le cas :

Application.Run "Eric.xla!NomDeLaMacro", mois

@+