Path Excel

[Kabuki]

Bonjour,

Je n'arrive pas a trouver une reponse a ma question. Desolée si il ya des redites..

J'utilise Excel depuis une appli en VB6 qui sera installée sur differents postes. Je voudrais savoir si il y avait un moyen pour recuperer systematiquement le chemin de Excel.exe, sur tous ces postes... donc sans passer par un chemin ecrit en dur dans mon code VB???

Merci d'avance

 

[Mytå]

Salut Kabuki et le forum

Un bout de code a voir si cela pourrait faire

Option Explicit
Sub FindFile()
Dim chemin As String, emplacement As String
chemin = ""
emplacement = "C:\"
repetition:
With Application.FileSearch
.NewSearch
.LookIn = "" & emplacement
.SearchSubFolders = True
.Filename = "*excel.exe"
End With

With Application.FileSearch
If .Execute() > 0 Then
chemin = .FoundFiles(1)
End If
End With
If chemin <> "" Then
chemin = Left(chemin, Len(chemin) - 9)
Exit Sub
End If
If emplacement = "E:\" Then Exit Sub
If emplacement = "D:\" Then emplacement = "E:\"
If emplacement = "C:\" Then emplacement = "D:\"
GoTo repetition
'Chemin trouvé
'.. traitement à insérer ici
End Sub

Mytå