trouver les chemins d'Excel

[Issimo]

Bonjour,

Dans windows xp, j'ai créé un fichier qui installe les différents fichiers d'une application Excel 2003 dans les répertoires :
_Excel > variable "c_excel"
_XLSTART > variable "c_start"
_Macros complémentaires > variable "c_macros"

Ça marche bien Windows XP, mais j'aimerais que ça fonctionne aussi dans Vista ou Windows 7.

Je recherche donc un code qui fonctionnerait quelle que soit la version ou d'autres codes adaptés aux autres versions de windows.

    c_start = Workbooks("Perso.xls").Path
    nbcar = Len(c_start) - 13
    c_macros = Left(c_start, nbcar) & "Macros complémentaires"
    nbcar = Len(c_macros) - 22
    c_excel = Left(c_macros, nbcar) & "Excel"

 

[Lermiton]

Re : trouver les chemins d'Excel

Bonsoir.

Tu peux obtenir le chemin des macros complémentaires avec "Application.UserLibraryPath" :

Sub Chemin_Macros_Complementaires()
    MsgBox Application.UserLibraryPath
End Sub

Bonne soirée.

 

[Issimo]

Re : trouver les chemins d'Excel

Bonsoir Lermiton

C'est exactement la formule que je cherchais.
Merci beaucoup

 

[Lermiton]

Re : trouver les chemins d'Excel

Bonsoir, Issimo. C'est sympa de ta part d'avoir pensé à dire que cette info t'a été utile. Bonne poursuite dans le VBA.