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

[Moriaben]

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!

 

[Moriaben]

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!

 

[Pierrot93]

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

Re,

essaye en utilisant une variable objet de type "workbook" dont tu utiliseras la propriété "name"....

 

[Moriaben]

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 !

 

[Pierrot93]

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

Re,

essaye ainsi :

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

fonctionne chez moi sans les quotes....

 

[Moriaben]

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 !

 

[Pierrot93]

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

Re,

voici la syntaxe quand le fichier comporte des espaces:

oui dans ce cas les quotes sont nécessaires....

bon après midi
@+