Discussion :

[issoram]

Bonsoir,


Plutôt que d'utiliser le

Code :

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

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 :

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

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

[jfontaine]

Bonjour,

Comme cela, ça devrait fonctionner

Code :

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

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

[issoram]

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 :

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

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 :

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

mafonction(mes arguments)

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

Cordialement.

[jfontaine]

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

comme cela ca fonctionne sur mon poste en excel 2003

Code :

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

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

[issoram]

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 :

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

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.