Chemin d'accès "Program Files"
Bonjour,
Dans une macro j'appelle une application externe.
Pour ça j'utilise le simple code :
Code:
1
2
3
4
5
|
Sub Launch_appli
Dim Retval
Retval = Shell("C:\CHEMIN_ACCES\NOM_DU_FICHIER.exe")
End Sub |
Le chemin d'accès c'est : C:\"Program Files\fichier.exe". Mais je travaille sur des Ordis avec différentes langues et différents répertoires d'installation par défaut des nouveaux prog.
Donc je recherche un code qui permet de trouver automatiquement le répertoire par défaut d'installation des programmes.
Pour détecter le répertoire temporaire par défaut j'utilise le code suivant qui marche très bien.
Code:
1
2
3
4
5
6
7
8
| Function GetTempDir() As String
Dim buffer As String * 256
Dim Length As Long
Length = GetTempPath(Len(buffer), buffer)
GetTempDir = Left(buffer, Length)
End Function |
Je n'ai pas trouvé une fonction similaire pour le répertoire d'installation des progrs. Vous en connaissez une ?
Merci d'avance :ccool:,
Arnaud
