Save as PDF and keep file name from multiple cell

[Lagrande]

Hi!
I am a true newbie with VBA.
I found this code to work with a button click and i need help to add a way to choose where i want to save my pdf files with the filename generate by this code. For the moment its saving on the Desktop without any choice but i prefer to choose the right folder.

Thanks
-------------------------------------
Private Sub cbSaveAsPDF_Click()

Dim sPath As String, sFile As String, sFullName As String

On Error GoTo ErrHandler

If Not IsEmpty(Me.Range("B2")) Then

sPath = ThisWorkbook.Path & Application.PathSeparator

sFile = Me.Range("B2").Value & Format(Range("I2").Value, "hh-mm-ss") & ".pdf"

sFullName = sPath & sFile

Me.ExportAsFixedFormat _

Type:=xlTypePDF, _

FileName:=sFullName, _

Quality:=xlQualityStandard

End If

ExitHandler:

Exit Sub

ErrHandler:

MsgBox "Erreur : " & Err.Number & Chr(10) & Err.Description

Resume ExitHandler

End Sub

 

[mumps]

Try:

Private Sub cbSaveAsPDF_Click()
    Dim sPath As String, sFile As String, sFullName As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            sPath = .SelectedItems(1)
            Cancel = True
        End If
    End With
    If Not IsEmpty(Range("B2")) Then
        sFile = Range("B2").Value & Format(Range("I2").Value, "hh-mm-ss") & ".pdf"
        sFullName = sPath & "\" & sFile
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFullName, Quality:=xlQualityStandard
    End If
End Sub

 

[Lagrande]

Great its working perfectly!
I have now another problem.....i have created a cloud (One Drive) to save these pdf. Its working for me, when i want to choose which folder i see my OneDrive folder but even if its shared and editable (full access) for other people...they don't see this folder in the pop up window. Do you have and idea?

 

[mumps]

Unfortunately, I don't have any experience using One Drive. Sorry.

 

[Lagrande]

I found it...people have to sync the folder in One Drive Thanks a lot for your help!

 

[mumps]

You are very welcome.