Ho cercato di fare una macro è sono fermo su un punto
Questo è quanto sono riuscito a fare finora
- Codice: Seleziona tutto
Sub ApriPDF()
Dim Message, Title, MyValue
Dim pathPDF As String
Message = "Visualizza quanto segue :" ' Imposto messaggio.
Title = "SEARCH " ' Imposto il titolo.
MyValue = InputBox(Message, Title) 'Ricavo valore o stringa inserita con visualizzazione del messaggio, e titolo
pathPDF = "C:\Users\SaSà\Documents\PDF\" ' Percorso dove si trovano i file in .pdf
If MyValue = pathPDF Then ' Questo è il punto dove sto impazzendo come faccio a tradurgli ..Se nel percorso dove si trovano i file _
' troverai allocato un file con denominazione come inserito nell'inputbox allora procedi con la visualizzazione _
' altrimenti semplicemente avvisa tramite un msgbox.
strAddress = pathPDF + MyValue
ActiveWorkbook.FollowHyperlink Address:=strAddress
Else
MsgBox "La richiesta non può essere soddisfatta"
End If
End Sub
Quello che vorrei facesse la macro è:
Associando la macro a un command button al mio click si apre l'inputbox e inserisco il nome di un file.pdf
A questo punto premendo ok dell' inputbox dovrebbe controllare se esiste nel percorso indicato quel file
e se lo trova ok lo apre con programma predefinito per .pdf e lo visualizzo mentre invece se non lo trova
oppure inserisco un nome estraneo mi esca semplicemente un msgbox.
Spero di essere stato abbastanza comprensibile
Grazie ciao
