charger une macro complémentaire

Bonsoir,


Plutôt que d'utiliser le

Code:

---

application.run

---

à chaque appel d'une fonction ou procédure de ma macro, j'aimerais la charger une fois pour toute.

J'ai essayé:

Code:

---

1 2 3 4

'On charge la macro complémentaire "Utils" If Application.AddIns("Utils").Installed = False Then Application.AddIns("Utils").Installed = True End If

---

Cependant quand j'appelle une fonction ou procédure appartenant au fichier Utils.xlam, l'interpéteur me signale qu'elle n'est pas définie.

Comment remédier à ce problème?

Merci d'avance

Bonjour,

Comme cela, ça devrait fonctionner

Code:

---

If AddIns("Utils").IsOpen = False Then AddIns("Utils").Installed = True

---

Merci, JFontaine mais la méthode isOpen ne fonctionne pas pour l'objet Addins (en tous cas pour ma version d'Excel (2007))

En fait quand je lance une fonction le

Code:

---

AddIns("Utils").Installed

---

est bien à TRUE.

C'est peut être tout simplement dans la syntaxe de l'appel que je me trompe.
Je fais juste

Code:

---

mafonction(mes arguments)

---

Est ce qu'il faut préfixer avec un "Utils!" ou autre chose?

Cordialement.

Il semblerait que cette propriété ait été ajouté sur excel 2010

comme cela ca fonctionne sur mon poste en excel 2003

Code:

---

1 2 3 4 5 6 7

Dim Myaddin As AddIn   For Each Myaddin In Application.AddIns If Myaddin.Name = "Utils.xlam" Then Myaddin.Installed = True End If Next

---

Le problème ne venait pas du chargement du fichier xlam mais bien de la syntaxe d'appel de la fonction.

Je pensais qu'on pouvait se passer des Application.run en chargeant la macro complémentaire mais à priori non!

Code:

---

1 2 3 4 5

If Application.AddIns("Utils").Installed = False Then Application.AddIns("Utils").Installed = True End If mafonction(arguments) 'mauvaise syntaxe Application.run("mafonction",arguments) 'syntaxe correcte

---

Bonne journée.