Salut Pierre, salut le forum,
Il doit y avoir plus court mais j'ai utilisé l'aide VBA pour rechercher un fichier... Cette macro commence par chercher "Calc.exe". Inconvénient : le temps de la recherche selon la taille du disque...
Public Sub cherche()
Dim fich As String
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "calc.exe"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute <> 0 Then
fich = .FoundFiles(1)
End If
End With
RetVal = Shell(fich, 1)
End Sub
À plus,
Robert