Un esempio di cosa si puo' fare se si e' chiari:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
CheckCol = 5 '<<< 5=E
If Target.Column <> CheckCol Or Target.Value = "" Then Exit Sub
'
IDir = "C:\Users\Andrea\Privata Andrea\Disegni\"
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.InitialFileName = IDir & "\*" & Target.Value & "*" '<<< Filtro per nome
.Filters.Add "Disegno1", "*.pdf; *.dwg", 1 '<<< Filtro per estensione
' .Filters.Add "Text", "*.Txt", 2 '<< Eventuale altra opzione di filtro
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nessuna voce selezionata, procedura annullata")
GoTo Esci
End If
FullNome = .SelectedItems(1) 'Directory e Nome del file selezionato
End With
'apertura Pdf:
mySplit = Split(FullNome, ".")
If mySplit(UBound(mySplit, 1)) = "pdf" Then
'!! Controllare path di Adobe Reader sul pc!!
RetVal = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe " & FullNome, 1)
End If
'Codice per apertura altri file:
'??
Esci:
End Sub
Tasto dx sul tab col nome "Accettazione2", scegli Visualizza codice; elimina per prova quello che hai al momento (magari prima copialo in un file di notepad se vuoi poterlo riprendere facilemnte), copia la macro e incollala nel frame vuoto di dx. Torna su Excel, prova a editare un codice di colonna E; dovrebbe comparirti un elenco di file che rispettano quella ricerca; puoi selezionarne uno, e se e' un pdf sara' aperto.
Se e' un altro tipo di file, dovresti rspondere a una delle domand eche ti feci e forse si potra aprire anche quello.
Ciao
