Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA: Appel d'une fonction (dans un module d'un fichier xls) depuis fichier xla

  • Initiateur de la discussion Initiateur de la discussion Moriaben
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Moriaben

Guest
Bonjour à tous,

Je cherche à réaliser l'opération suivante:

un fichier *.xla inclut toutes mes fonctions et mes subs
il existe plein de workbooks xls qui appellent le même sub (codé dans le xla)
dans le sub du fixhier xla, je souhaite appeler une fonction, qui elle, sera écrite dans les fichiers xls

chaque fichier xls possède donc une fonction ayant le même nom, mais avec des calculs différents

est-ce possible? si oui, comment faire?
merci!

à noter qu'il n'y a qu'un seul fichier xls ouvert, jamais deux!
 
Re : VBA: Appel d'une fonction (dans un module d'un fichier xls) depuis fichier xla

ah en fait la méthode de James fonctionne! j'avais simplement oublié le ' ' car le nom du fichier xls contient des espaces!

result = Application.Run("'mon fichier.xls'!montest", 0)

par contre, idéalement, je souhaiterais que l'appel de la fonction ne nécessite pas le nom du fichier.. pensez-vous que cela est possible?

merci beaucoup!
 
Re : VBA: Appel d'une fonction (dans un module d'un fichier xls) depuis fichier xla

j'essaye avec:
result = Application.Run("'CurrentWB.Name'!montest", 5)
et
result = Application.Run("CurrentWB.Name!montest", 5)

dans les propriétés de CurrentWB, je vois bien que "Name" possède le nom correct du fichier xls à appeler, mais dans les deux cas, cela ne fonctionne pas.
par contre je sens qu'on est vraiment pas loin de la solution ! 🙂
 
Re : VBA: Appel d'une fonction (dans un module d'un fichier xls) depuis fichier xla

génial !! merci beaucoup Pierre !!

voici la syntaxe quand le fichier comporte des espaces:

result = Application.Run("'" & CurrentWB.Name & "'!montest", 5)

encore Merci !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
Réponses
10
Affichages
2 K
A
E
Réponses
0
Affichages
1 K
eeyglunent
E
L
Réponses
5
Affichages
28 K
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…