Bonjour,

Dans une macro j'appelle une application externe.

Pour ça j'utilise le simple code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ,

Arnaud