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

[patricktoulon]

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

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

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

 

[dysorthographie]

bonjour Patrick,

environ("AppData")& "\Microsoft\AddIns"

 

[patricktoulon]

bonjour robert
tu es sur ???
chez moi par exemple pour mon calendrier c'est
C:\Users\polux\AppData\Roaming\Microsoft\AddIns\calendar version 4.2.2.xlam

 

[patricktoulon]

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