Buongiorno a tutti,
Di recente ho scritto una piccola macro in vba che mi permette, facendo doppio clic con il mouse su una determinata cella in cui sono annotati dei nomi di file pdf, di cercare il corrispondente file in un percorso predefinito e aprirlo.
Adesso mi trovo di fronte a questo problema: la macro in questione riesce a vedere solo all'interno del percorso che io ho impostato, e non è in grado di cercare anche nelle sotto cartelle presenti in quel percorso.
Riuscite a darmi qualche dritta su come modificare il codice per far sì che, al mio doppio clic, la macro vada a cercare il file in tutte le sottocartelle del percorso che io ho indicato?
Grazie a tutti in anticipo,
Alex
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim testo As String
Dim nomefile As String
Dim path As String
On Error Resume Next
If Target.Column = 3 Then
path = "C:\\Utenti\Utente10\Prova\"
testo = path & Cells(Target.Row, 3)
nomefile = Dir(Left(testo, Len(testo)) & "*.pdf")
If nomefile = "" Then
MsgBox "File non trovato", vbCritical, "ATTENZIONE"
Exit Sub
End If
Do
Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe " & path & nomefile, vbMaximizedFocus
nomefile = Dir
Loop While nomefile <> ""
End If
End Sub