Auto-installation d'un Add-In Excel avec AddIns

Bonjour, j'ai fait un add-in Excel et je voudrais pourvoir le distribuer.
Pour éviter de devoir expliquer comment sauver et installer manuellement cet add-in, je voudrais qu'il s'installe et se load automatiquement lorsqu'on l'ouvre pour la première fois.

J'ai bien fait quelques essais, mais avec pour seul résultat de planter Excel à l'ouverture...:?

Quelqu'un a une idée ? Merci d'avance.

Pour que les procédures de ton appli le prennent en compte, tu peux utiliser Addins, mais ça n' "installera" pas le xla s'il n'existe pas sur le post. Exemple :

Code:

---

Application.AddIns.Add("C:\Program Files\Microsoft Office\Office10\Macrolib\Analyse\ATPVBAEN.XLA").Installed = True

---

J'ai essayé ceci. L'add-in se sauve bien dans le répertoire des add-ins, mais il n'apparait pas dans excel : il faut encore aller le chercher manuellement (Tools - Add-ins... puis browse et le sélectionner)

Il y a un moyen d'automatiser ce point aussi ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Workbook_Open()   TestDrive = UCase(ThisWorkbook.Path) MyAddinName = ThisWorkbook.Name DestDrive = UCase(Application.UserLibraryPath)   If Right(TestDrive, 1) <> "\" Then TestDrive = TestDrive & "\" If Right(DestDrive, 1) <> "\" Then DestDrive = DestDrive & "\"   If TestDrive = DestDrive Then 'Already installed Exit Sub Else 'Not installed Here MyCheck = MsgBox("Copy " & MyAddinName & " to " & Application.UserLibraryPath & "?", vbYesNo) If MyCheck = vbNo Then Exit Sub ThisWorkbook.Close Else ThisWorkbook.SaveAs Filename:=DestDrive & MyAddinName ThisWorkbook.Close Workbooks.Add Application.AddIns.Add(DestDrive & MyAddinName).Installed = True End If End If   End Sub

---

Si je comprends bien ton code, ton xla est le classeur actif. Il ne va pas s'installer lui-même. Tu dois le placer dans le bon répertoire, celui des xla, auquel cas il apparaît dans la liste des macros complémentaires... peut-être seulement après avoir redémarré Excel (?)
Là, dans une autre appli, tu peux l'activer à l'aide de la ligne que je t'ai indiquée.
Quel est l'intérêt d'activer un xla pour lui-même ?
Ou alors j'ai mal lu ton code... :(
A+

C'est pour pouvoir le distribuer par mail et que le destinataire n'ait qu'à l'ouvrir pour qu'il s'installe de lui-même.

Mais je sais pas si c'est possible (un add-in téléchargé du net avait le même problème).

Adresse aux utilisateurs, à la fois un classeur contenant ta macro d'install et ton xla.
Mais je pense toujours que, pour qu'il apparaisse dans les macros complémentaires, il faut redémarrer Excel. Ceci... si toutefois il a été placé au bon endroit ;)

Ca marche bien avec ce code (la création des menus est plascé dans Workbook_AddinInstall).

Je fermais les workbook un peu trop tot ...

Et, en effet, il n'apparait en VBA qu'après redémarrage d'Excel (par contre, on peut déjà le l'appeler)

Merci !

Code:

---

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

Private Sub Workbook_Open()   TestDrive = UCase(ThisWorkbook.Path) MyAddinName = ThisWorkbook.Name DestDrive = UCase(Application.UserLibraryPath) If Right(TestDrive, 1) <> "\" Then TestDrive = TestDrive & "\" If Right(DestDrive, 1) <> "\" Then DestDrive = DestDrive & "\"   If TestDrive = DestDrive Then 'Already installed Exit Sub Else 'Not installed Here MyCheck = MsgBox("Copy '" & MyAddinName & "' to '" & Application.UserLibraryPath & "'?", vbYesNo) If MyCheck = vbNo Then ThisWorkbook.Close Exit Sub Else ThisWorkbook.SaveAs Filename:=DestDrive & MyAddinName Workbooks.Add Application.AddIns.Add(DestDrive & MyAddinName).Installed = True ThisWorkbook.Close End If End If   End Sub

---