I found this macro code on your site and it does every thing it says it does, but i need it to do a bit more.
Private Sub Workbook_Open()
l = 0
Do
l = l + 1
lastfile = "Work book " & LTrim(Str(l)) & ".XLS"
filetest = Dir("C:\" & lastfile)
Loop Until filetest = ""
NewFileName = "C:\Work book " & LTrim(Str(l)) & ".XLS"
ActiveWorkbook.SaveAs NewFileName
End Sub
How can i make this code look for and use a "Network Drive" called P and then a sub folder called Plant Team, on my company network
The drive i need it access is called Data on totonfs01 '(P)\plant team
Please help an urgent resolution is required at my end
much regards
Private Sub Workbook_Open()
l = 0
Do
l = l + 1
lastfile = "Work book " & LTrim(Str(l)) & ".XLS"
filetest = Dir("C:\" & lastfile)
Loop Until filetest = ""
NewFileName = "C:\Work book " & LTrim(Str(l)) & ".XLS"
ActiveWorkbook.SaveAs NewFileName
End Sub
How can i make this code look for and use a "Network Drive" called P and then a sub folder called Plant Team, on my company network
The drive i need it access is called Data on totonfs01 '(P)\plant team
Please help an urgent resolution is required at my end
much regards