Discussion :

[nono le golfeur]

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

[ucfoutu]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox Environ$("ProgramFiles")

devrait te retourner ce chemin.

[nono le golfeur]

Merci ça fonctionne bien comme ça.
J'y aurais pas pensé !
Bonne journée,