importing a PDF

[freefall3]

I am currently making an enquiry process with Excel, for the company sales team. The sales team will open excel and fill in the form which pops up. The excel file then gets logged and e-mailed to me, to process.

the problem i am having is that with almost all enquiries, the customer sends in a PDF (or multiple PDF's) or JPEG files which i need the sales team to import/attach to the excel file. Not all of the sales team know how to import a pdf's (insert=>object=>pdf=>browse), or a JPEG 's(insert=>picture=>browse).

i want to have a button on the form (VBA) which when pressed, opens the browser window so they can search themselves. i'm not bothered if i have to have 2 buttons, 1 for PDF's & 1 for JPEG's

any help would be much appreciated

 

[R Pelle]

Try playing around with this. Something I found in another thread and I used the Macro recorder to pick up the "ELSE" part.
It's a start and by no means bullet proof.

Sub TestIt()
'NewFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file")
NewFN = Application.GetOpenFilename(FileFilter:="", Title:="Please select a file")
If NewFN = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
    ActiveSheet.OLEObjects.Add(Filename:=NewFN, Link:=False, DisplayAsIcon:=True, IconFileName:="", IconIndex:=0).Select
End If
End Sub

Rob

 

[freefall3]

Thankyou Rob, its a good start for me to have a go.

 

[R Pelle]

You're welcome