Appeler une macro VBA depuis une cellule

Version imprimable

26/04/2011, 12h10
Ainelle

Appeler une macro VBA depuis une cellule

Bonjour,

J'ai parcouru une bonne partie des sujets déjà écrits et je n'ai pas trouvé de solution à mon problème que voici :
- Dans un fichier VBA, j'ai une macro appelée MyFunction(cell1,cell2)
- Dans un fichier excel, une cellule appelle cette fonction par :

Code:

=MyFunction(H4,J4)

Cela fonctionne très bien jusqu'à la prochaine ouverture du fichier excel.

En effet, à la prochaine ouverture du fichier Excel, je rencontre l'erreur #NOM, car il ne trouve plus MyFunction, alors qu'il est toujours présent.
Je dois alors changer la formule de la cellule par :

Code:

=MesMacros.xla!MyFunction(H4,J4)

Mais après avoir retrouvé le lien, Excel transforme la formule en

Code:

=MyFunction(H4,J4)

Et le problème réapparaitra à la prochaine ouverture de fichier ...

Comme concerver en dur le chemin

Code:

=MesMacros.xla!MyFunction(H4,J4)

dans la cellule ?
28/04/2011, 09h45
trollinou

Salut,

Deux solutions possibles :
1- Tu ajoutes ta macro dans ton fichier, du coup, tu n'auras plus le problème
2- Le fichier *.xla doit être mis dans le répertoire idoine, à savoir :
C:\....\Application Data\Microsoft\Addins
28/04/2011, 10h37
Ainelle

Malheureusement, je ne peux pas utiliser ces solutions :(
1/ la macro est dans un fichier xla, car elle est utilisée par de nombreux fichiers excel. Donc cette solution demanderait de dupliquer une macro qui peut encore évoluer ...

2/ Je ne peux pas non plus, car ces fichiers Excel sont utilisés par plusieurs utilisateurs sur plusieurs ordinateurs. Ce nombre d'utilisateurs n'est pas fixe et n'est pas complétement connu, donc pas envisageable de demander à chacun de copier ou même créer un lien symbolique du fichier xla sur le disque local

Je cherchais plutôt une solution qui force Excel à figer le chemin d'appel de la macro, genre INDIRECT, mais INDIRECT ne cible que des noms de cellule et refuse un appel de function

Merci quand même ...
28/04/2011, 15h34
trollinou
Re

J'ai peut être une piste de solution
Code:

1 2 3 AddIns.Add "Filename" AddIns("Nom module ?").Installed = True
Tu mets ça à l'ouverture de ton classeur
28/04/2011, 17h19
Ainelle

J'obtiens toujours #NOM comme résultat
tu as testé chez toi ?
28/04/2011, 17h27
trollinou

Non j'avoue que j'ai pas essayé de mettre un appel de fonction
Mais l'ajout des macros complémentaires fonctionne bien.
Je vais voir
28/04/2011, 17h33
trollinou
J'ai testé et tout fonctionne correctement

J'ai un fichier BookMacros.xla que j'ai sur mon disque dans Mes documents
Et à l'ouverture de mon classeur
Code:

1 2 Application.AddIns.Add "C:\......\BookMacros.xla" Application.AddIns("Bookmacros").Installed = True
28/04/2011, 18h14
Ainelle

J'ai l'erreur 1004 :
La méthode Add de la classe AddIns a échoué :cry:

et je vois toujours des #NOM comme résultat
28/04/2011, 22h36
issoram
J'ai également la même problématique que Ainelle mais sous Excel 2007

J'ai donc testé le
Code:

1 2 3 4 5 6 Private Sub Workbook_open() Application.AddIns.Add "C:\....\test.xlsm" Application.AddIns("test").Installed = True End Sub
à l'ouverture d'un autre classeur.

Pas de problème, sauf que ça ne fait pas ce que je souhaiterais; à savoir:
- le classeur test.xlsm s'ouvre automatiquement (ce que je ne veux pas)
- la fonction VBA définie dans test.xlsm que je veux utiliser dans une formule de mon nouveau classeur n'est pas reconnue (alors que c'est le but de la manip):?
N'est ce pas la bonne manière de procéder sous Excel 2007?

Merci de votre aide :D
29/04/2011, 09h30
trollinou

@Ainelle
Ton fichier est accessible ?
Ton Excel est en version Française ou Anglaise ?

@issoram
j'avoue ne pas connaitre cette extension, et après avoir regarder sur le net, il semble que ce soit l'équivalent de .xla pour 2003 mais n'ayant pas 2007 je ne peux malheureusement pas faire de test

Question subsidiaire : l'extension des macros complémentaires en 2007 c'est quoi ? sur que c'est xlsm ?

En fait l'extension des macros complémentaires pour 2007 c'est .xlam donc c'est normal qu'il t'ouvre le fichier
29/04/2011, 11h48
issoram

Mais de toute façon, on est obligé d'inclure ces lignes de codes dans tous les classeurs utilisant cette fonction...

N'y a t il pas un moyen plus simple pour importer une fonction externe dans plusieurs classeurs?
29/04/2011, 14h28
Ainelle

@trollinou : oui, le fichier est accessible, d'ailleurs, comme l'a fait remarqué issoram, Excel ouvre le fichier .xla (mais ça ne me gène pas). Du coup, essairait-til de l'ouvrir 2 fois ? car comme Microsoft est avare en code erreur, l'erreur 1004 correspond aussi à "fichier non trouvé" et également "fichier déjà ouvert", bref, un fourre-tout ...
Et pour la version, c'est une version 2003 FR, oui.
En tout cas, les menus sont en français et les formules accessibles depuis une cellule sont en FR (SI , ET, OU ...)
29/04/2011, 15h46
trollinou

@issoram :
Si il y a plus simple mais pas de façon générique pour tout le monde sauf si "tout le monde" utilise une version sur réseau par exemple.

Avec Excel il est possible de "stocker" des macros complémentaires à un endroit spécifique du poste de travail "..Application Data\Microsoft\AddIns", dans ton cas en extension xlam sinon ça ne marchera pas.

Et d'ajouter également un classeur, l'équivalent du normal.dot pour Word dans le dossier XLSTART et ce classeur contient les macros complémentaires activées, ce qui fait que lorsqu'une personne ouvre Excel depuis ce modèle les fonctions sont directement activées.
Ce modèle est un fichier Excel standard.

Je suis assez clair ?
29/04/2011, 15h50
trollinou

@Ainelle :

issoram travaille en 2007 et toi en 2003.
je ne connais pas l'ensemble des différences mais ne serait-ce que pour les fichiers macros complémentaires les extensions ne sont pas les mêmes.

Est-ce que tu peux me fournir ton fichier macros complémentaires modifiés suffisamment pour ne pas "compromettre" des données plus ou moins confidentielles que je teste sur mon poste ?

Même si Microsoft ne fournit pas forcément un détail sur les erreurs, elles permettent de donner des pistes.
29/04/2011, 23h43
issoram
Je suis confronté au même problème que Ainelle: fichiers partagés par plusieurs utilisateurs sur différents postes.
Mais n'ayant pas vraiment trouvé de solution alternative satisfaisante, autre que les 2 proposés par trollinou:

Citation:

Deux solutions possibles :
1- Tu ajoutes ta macro dans ton fichier, du coup, tu n'auras plus le problème
2- Le fichier *.xla doit être mis dans le répertoire idoine, à savoir :
C:\....\Application Data\Microsoft\Addins

J'ai opté pour la première, mais de manière un peu différente que le "Addins" proposé plus haut:
1. Export du module contenant les fonctions à utiliser. A partir de Microsoft VB : Modules/exporter un fichier => création d'un fichier .bas
2. Import de ce module dans chacun de mes fichiers grâce à une boucle toute bête et à la commande:
Code:

Activeworkbook.VBProject.VBComponents.Import("/.../mon_module.bas")

Ça ne me satisfait pas vraiment mais ça a le mérite de marcher....
Ça fonctionnera peut être aussi pour toi Ainelle sous 2003... ;)