ciao
continuo a non capire e lascio ad altri più intuitivi di me....
Comunque il seguente codice (se è quello che vuoi) ricerca un file che sta nella cella A1 nella cartella "C:\TuaDirPrincipale\" (da modificare) ed in tutte le sue sottocartelle
saluti
Vuole riferimento a Microsoft scripting runtime.
Sub Tester()
Call RicercaF_SF("C:\TuaDirPrincipale\")
End Sub
Function RicercaF_SF(sPath As String) As String
Dim FSO As New FileSystemObject
Dim mF As Folder
Dim mSFr As Folder
Dim myFile As File
Set mF = FSO.GetFolder(sPath)
For Each mSFr In mF.SubFolders
For Each myFile In mSFr.Files
If myFile.Name = Range("A1").Value Then
msgBox "trovato"
Exit For
End If
Next
RicercaF_SF = RicercaF_SF(mSFr.Path)
Next
End Function
(NOTA x AMMINISTRATORI: non si riesce a mettere il codice tra tag.)
[Modificato da dodo47 20/11/2022 16:55]
Domenico
Win 10 - Excel 2016