Discussion :

[Ainelle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=MesMacros.xla!MyFunction(H4,J4)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MyFunction(H4,J4)

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

Comme concerver en dur le chemin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MesMacros.xla!MyFunction(H4,J4)

dans la cellule ?

[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

[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 ...

[trollinou]

Re

J'ai peut être une piste de solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
AddIns.Add "Filename"
AddIns("Nom module ?").Installed = True

Tu mets ça à l'ouverture de ton classeur

[Ainelle]

J'obtiens toujours #NOM comme résultat
tu as testé chez toi ?

[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