Question : Dialog Box to ask questions to get new users to identify their pathway to various files being used in macro program

Hello Experts!

I am writing a Macro program at work that will use AS/400 and Excel. I want to distribute the .RSF file and Excel file so my peers can use it. Instead of me going around and programing everyones info. IE Location to the files on their desktop. I would like to have a dialg box that would pop up and ask each user for them locate and paste in their info and hit Okay and then the VB program will edit the VB macros to erase my info with their info. I sthis possible? This sounds very difficult, but may be a find and replace will allow this to happen on the back end.

Thank you

Answer : Dialog Box to ask questions to get new users to identify their pathway to various files being used in macro program

What you should do is program your code to find the correct location without a user prompt. Add the following to your code to grab what you need: strPath will have the value you need, for the current logged on user.

-Bear

                       
                 Dim objApp As Object
    Dim objDesktop As Object
    Dim strPath As String
    
    Set objApp = CreateObject("Shell.Application")
    Set objDesktop = objApp.Namespace(&H10&) 'Desktop Folder
    
    strPath = objDesktop.Self.Path & "\REFLECTIONBOXES\GANCP5.rsf"

Open in New Window

Select All