kamalmalek
10-11-2018, 12:07 AM
dear,
could you please help me of this code
actually every time i run macro give 2 alert messages as snapshots,
23008
what can i do to let file save without any alert?
Dim Path As String
Dim d As String
Path = "\\xxx\Oct"
If Len(Dir(Path, vbDirectory)) = 0 Then
MsgBox "Path does not exist.", vbCritical
Exit Sub
End If
d = Format(Date, "dd-mm-yyyy")
If Len(Dir(Path & d, vbDirectory)) = 0 Then MkDir (Path & d)
ActiveWorkbook.SaveAs Filename:=Path & d & "" & "Sum Report" & ".xls", FileFormat:=xlNormal
End Sub
Thanks,
could you please help me of this code
actually every time i run macro give 2 alert messages as snapshots,
23008
what can i do to let file save without any alert?
Dim Path As String
Dim d As String
Path = "\\xxx\Oct"
If Len(Dir(Path, vbDirectory)) = 0 Then
MsgBox "Path does not exist.", vbCritical
Exit Sub
End If
d = Format(Date, "dd-mm-yyyy")
If Len(Dir(Path & d, vbDirectory)) = 0 Then MkDir (Path & d)
ActiveWorkbook.SaveAs Filename:=Path & d & "" & "Sum Report" & ".xls", FileFormat:=xlNormal
End Sub
Thanks,