Application.run avec le nom de la macro complémentaire en paramètre

bonjour,

j'aimerais savoir comment faire

Code:

---

Application.Run("'nomdelamacro.xla'!mafonction")

---

avec "nomdelamacro" en parametre de facon à ce que quand j'ouvre l'excel il me demande par exemple quelle macro je veux utiliser ou prend la macro complementaire coché dans outil -> macro complémentaire.
Pour l'instant je doit utilser un même nom quelque soit ma version de macro.
Mon chef de projet atteste qu'on peut faire application.run sans mettre "nomdelamacro" est ce possible? Si oui comment? car il m'a demandé de chercher.

Merci d'avance pour vos reponses.

Citation:

---

"Application.Run("'nomdelamacro.xla'!mafonction")"

---

En écrivant ça tu confonds nom de la macro et nom du fichier.
Dans ta ligne, ce qui est ".xla", c'est le fichier. La macro, c'est "mafonction"
Quand un xla est installé, ton chef a raison, le nom du fichier n'est pas nécessaire.
Pour installer une macro complémentaire par macro (c'est le fichier.xla qu'on installe) regarde dans l'aide en ligne à "AddIns, collection d'objets", la méthode Add. Tu as un exemple. Pour l'installer, tu dois préciser le chemin complet du .xla
Bonne journée

Merci pour ta reponse.
J'ai juste une dernière question comment récuperer la macro complémentaire installée pour la désinstaller en VBA

Code:

---

Addins("NomDeLaMacro.xla").Installed = false

---

Mais le nom de la macro installée je ne la connais pas elle est choisie par l'utilisateur à l'ouverture du fichier du fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Workbook_Open()   NomFichier = Application.GetOpenFilename(FileFilter:="Fichiers Microsoft Excel (*.xla),*.xla") Decoup = Split(NomFichier, "\") Nom = Decoup(UBound(Decoup)) NomFichier2 = Left(Nom, Len(Nom) - 4)   If VarType(NomFichier) = vbBoolean Then MsgBox "Erreur de chargement" Else Set maMacro = AddIns.Add(Filename:=NomFichier, CopyFile:=True) Application.AddIns.Add (NomFichier) AddIns(NomFichier2).Installed = True 'AddIns.add(NomFichier2).Installed = True 'Call OuvreSiPasOuvert(NomFichier) End If     End Sub

---

maintenant je voudrais dans workbook_close recuperer la macro qui est installée et la désinstaller

Citation:

---

Envoyé par ckrikri

Mais le nom de la macro installée je ne la connais pas elle est choisie par l'utilisateur à l'ouverture du fichier du fichier

---

Notre boule de cristal ne va pas jusqu'à deviner ce que tu ne dis pas ;)
Une solution serait de lister les macros complémentaires et de dévalider la dernière... Mais assure toi que tu n'as pas la validation d'autres macros dans ton code, ou au moins qu'il n'y a pas d'incidence néfaste...

Code:

---

1 2 3 4 5 6 7

Sub SupAddIns() For Each Nom In Application.AddIns NomMC = Nom.Name 'MsgBox NomMC 'si tu veux tester le nom des macros Next AddIns(NomMC).Installed = False End Sub

---