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

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

Cliquez pour agrandir...

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