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

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

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

1
2
    Application.AddIns.Add "C:\......\BookMacros.xla"
    Application.AddIns("Bookmacros").Installed = True

[Ainelle]

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

et je vois toujours des #NOM comme résultat

[issoram]

J'ai également la même problématique que Ainelle mais sous Excel 2007

J'ai donc testé le

Code :

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

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

[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

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

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

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

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

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

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 :

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

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