Hi,
I need help with the below VBA. I have recently taken over the management of a file we use daily as a flight planning program.
My issue is we are multiple users on different desktops, the macro is set up to save to a specific shared folder on the master pc.
I need it to save to the "C:\User\#######\Desktop\Daily Flights" folder of the user(####) currently using the file, basically a dynamic save path. The workbook is copied to and opened from the users "Desktop\Daily Flights" Folder
The issue is the code in the VBA macro cannot be changed too much as there are nearly 700 macros in this workbook and they are mostly connected. Is there a string that can enable me to make this a dynamic save path macro?
Sub Save_Send_Pilots()
'
' Save_Send_Pilots Macro
'
'
Call FONTINVISIBLE
Application.ScreenUpdating = False
Dim filename As String
filename = Range("ay27").Value
ActiveWorkbook.SaveAs ("C:\Users\bowyerm\Desktop\Daily Flights\ " & filename & ".xlsm")
Application.Dialogs(xlDialogSendMail).Show
Application.DisplayAlerts = False
'ActiveWorkbook.SaveAs ("C:\Users\bowyerm\Desktop\Daily Flights\ " & filename & ".xlsm")
Application.DisplayAlerts = True
Sheets("route planner sheet").Select
Range("g4").Select
Application.ScreenUpdating = True
'Call FONTDARK
End Sub
I need help with the below VBA. I have recently taken over the management of a file we use daily as a flight planning program.
My issue is we are multiple users on different desktops, the macro is set up to save to a specific shared folder on the master pc.
I need it to save to the "C:\User\#######\Desktop\Daily Flights" folder of the user(####) currently using the file, basically a dynamic save path. The workbook is copied to and opened from the users "Desktop\Daily Flights" Folder
The issue is the code in the VBA macro cannot be changed too much as there are nearly 700 macros in this workbook and they are mostly connected. Is there a string that can enable me to make this a dynamic save path macro?
Sub Save_Send_Pilots()
'
' Save_Send_Pilots Macro
'
'
Call FONTINVISIBLE
Application.ScreenUpdating = False
Dim filename As String
filename = Range("ay27").Value
ActiveWorkbook.SaveAs ("C:\Users\bowyerm\Desktop\Daily Flights\ " & filename & ".xlsm")
Application.Dialogs(xlDialogSendMail).Show
Application.DisplayAlerts = False
'ActiveWorkbook.SaveAs ("C:\Users\bowyerm\Desktop\Daily Flights\ " & filename & ".xlsm")
Application.DisplayAlerts = True
Sheets("route planner sheet").Select
Range("g4").Select
Application.ScreenUpdating = True
'Call FONTDARK
End Sub