How to pass the result of FolderPicker between macros

[Bering]

Hi guys,

I have a macro that prompts the user to select a path:

Macro no.1

   With Excel.Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "U:\MyPath\"
        If .Show = -1 Then ' if OK is pressed
         strFolderpath = .SelectedItems(1)

        End If
    End With

Macro no.1 then calls another Macro no.2 that creates a number of emails and SHOULD store any attachments in the strFolderpath:

   If strFolderpath <> "" Then ' if a file was chosen
'
'        ' Combine with the path to the Temp folder.
        strFile = strFolderpath
        ' Save the attachment as a file.
        oAttachments.Item(i).SaveAsFile strFile
        
    End If

Since the path is the same for all the emails, I don't want the folder picker prompt to appear each time. However, I cannot think of a way to pass the path to macro no. 2
Thank you in advance for any suggestion.

 

[RoryA]

You would pass it as an argument - eg

Sub Macro2(strFolderPath as string)

and macro 1 simply passes it along:

macro2 strFolderpath

 

[Bering]

You would pass it as an argument - eg

Sub Macro2(strFolderPath as string)

and macro 1 simply passes it along:

macro2 strFolderpath

Thank you for your reply! Unfortunately, I am still doing something wrong because the attachments do not get saved in strFolderpath ... Any idea? Thank you so much

Macro1

Sub Macro1()
 
With Excel.Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "U:\MyPath\"
        If .Show = -1 Then ' if OK is pressed
         strFolderpath = .SelectedItems(1)

        End If
End With

Call Macro2 (strFolderPath)

Macro2:

Sub Email_to_Investors_2(strFolderPath As String)

If strFolderPath <> "" Then

         strFile = strFolderPath
        ' Save the attachment as a file.
        oAttachments.Item(i).SaveAsFile strFile
        
End If

 

[Bering]

Thank you for your reply! Unfortunately, I am still doing something wrong because the attachments do not get saved in strFolderpath ... Any idea? Thank you so much

Macro1

Sub Macro1()
 
With Excel.Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "U:\MyPath\"
        If .Show = -1 Then ' if OK is pressed
         strFolderpath = .SelectedItems(1)

        End If
End With

Call Macro2 (strFolderPath)

Macro2:

Sub Email_to_Investors_2(strFolderPath As String)

If strFolderPath <> "" Then

         strFile = strFolderPath
        ' Save the attachment as a file.
        oAttachments.Item(i).SaveAsFile strFile
       
End If

Solved by declaring

Public strFolderpath as String
beween Option Explicit and sub