Faccio alla marzullo :D
Private Sub openDialog()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Please select the file."
' Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "Excel 2003", "*.pdf"
If .Show = True Then
txtFileName = .SelectedItems(1) 'replace txtFileName with your textbox
MsgBox txtFileName
FileCopy txtFileName, "C:\Database\pdf\copia\copia.pdf"
End If
End With
End Sub