XL 2013 obtenir le dossier des complement XLA(M) toute version d'excel

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
j'ai besoins d'une piqûre de rappel
je cherche a obtenir par vba le chemin des compléments Xlam
le code doit me retourner le chemin quelque soit la version d'excel
merci d'avance
je sais faire une boucle sur les addins et en trouver le chemin mais c'est pas tout le temps le meme chemin
VB:
Sub test()
Dim i&
For i = 1 To 10
Debug.Print AddIns(i).FullName
Next
End Sub

C:\Program Files (x86)\Microsoft Office\Office15\LIBRARY\ANALYSIS\ANALYS32.XLL
C:\Program Files (x86)\Microsoft Office\Office15\LIBRARY\ANALYSIS\ATPVBAEN.XLAM
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\block_clickdroit.xlam
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\Calendar.xlam
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\calendar version 4.2.2.xlam
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\complement perso.xla
C:\Program Files (x86)\Microsoft Office\Office15\LIBRARY\SOLVER\SOLVER.XLAM
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\interface google translate.xlam
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\Marcel2.xlam
C:\Program Files (x86)\Microsoft Office\Office15\LIBRARY\EUROTOOL.XLAM



ce qui m’intéresse c'est d'avoir le chemin des complement xlam uniquement sans avoir a boucler sur les addins

n'y a til pas un autre moyen que celui ci
VB:
Sub test()
Dim i&
For i = 1 To 10
If AddIns(i).Path Like "*Roaming*" Then Debug.Print AddIns(i).Path: Exit For
Next
End Sub
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
ok j'ai testé il me donne "Roaming" avec
étonnant quand même non?
merci robert ;)
je suis en train de finir l'installateur du calendrier
demo7.gif
 
Dernière édition:

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo