C
casan.mike
Hi Guys,
I have a problem with this Sub:
---
Sub CopyFiles()
'Create the folder with the current date
MkDir "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
\Database_" & Format(Date, "yyyymmdd")
'Copy the files created with Olympic
Set newDir = "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
\Database_" & Format(Date, "yyyymmdd")
Dim SourceFile, DestinationFile
SourceFile = "Q:\Products\Aat\APA Database\Bonds Database
\fapa_bonds.xls" ' Define source file name.
DestinationFile = newDir
FileCopy SourceFile, DestinationFile ' Copy source to target.
End Sub
---
I managed 'to create the folder with the current date', however, I
cannot move the file to this folder. The error occurs at the line
Set newDir = "......"
Thanks a lot to help me guys, and please don't laugh if it is a simple
"" or (), because I am a beginner...
Mike
I have a problem with this Sub:
---
Sub CopyFiles()
'Create the folder with the current date
MkDir "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
\Database_" & Format(Date, "yyyymmdd")
'Copy the files created with Olympic
Set newDir = "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
\Database_" & Format(Date, "yyyymmdd")
Dim SourceFile, DestinationFile
SourceFile = "Q:\Products\Aat\APA Database\Bonds Database
\fapa_bonds.xls" ' Define source file name.
DestinationFile = newDir
FileCopy SourceFile, DestinationFile ' Copy source to target.
End Sub
---
I managed 'to create the folder with the current date', however, I
cannot move the file to this folder. The error occurs at the line
Set newDir = "......"
Thanks a lot to help me guys, and please don't laugh if it is a simple
"" or (), because I am a beginner...
Mike