Function ProgramFilesPAth() As String
'obtient la chaine de la variable d'environnement windows 'PATH'
Dim sPath As String: sPath = Environ("PATH")
'cherche la chaine ":\Program Files\ dans le contenu du résultat
Dim pos As Byte: pos = InStr(1, sPath, ":\Program Files\")
'Si la chaine est trouvé retourne la lettre du lecteur suivit de la chaine program files
If pos > 0 Then ProgramFilesPAth = Mid(sPath, pos - 1, 1) & ":\Program Files\"
End Function