Public Sub Test()
' [C1] = SearchforDrive([B1].Text)
' Columns.AutoFit
MsgBox SearchforDrive("dossier\sousdossier\fichier.zzz")
End Sub
Public Function SearchforDrive(File As String) As String
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each Drv In Fso.Drives
Select Case True
Case Not Drv.isready: DoEvents
Case Fso.FileExists(Drv.rootfolder & File)
SearchforDrive = Drv.rootfolder & File
Exit For
End Select
Next
Set Fso = Nothing
End Function