A
Arctica
Guest
bonjour
je dois copier un fichier dans le même dossier et le nommer du même nom mais avec le numéro de semaine en complément j'ai donc un code mais au lieu de me marquer le numéro de semaine il m'écrit" Adecco NumSem "
voici le code je pense a une erreur dans la formulation mais ou ?
pouvez vous m'éclairer?
Sub Fichier1()
Dim GestionFichier As Object
Dim NumSem As Byte
NumSem = DatePart("ww", Date, 2, 2)
Set GestionFichier = CreateObject("Scripting.FileSystemObject")
GestionFichier.CopyFile "T:\Adecco-Partnaire\2017\Adecco.xlsx", "T:\Adecco-Partnaire\2017\Adecco & NumSem &.xlsx"
Set GestionFichier = Nothing
End Sub
je dois copier un fichier dans le même dossier et le nommer du même nom mais avec le numéro de semaine en complément j'ai donc un code mais au lieu de me marquer le numéro de semaine il m'écrit" Adecco NumSem "
voici le code je pense a une erreur dans la formulation mais ou ?
pouvez vous m'éclairer?
Sub Fichier1()
Dim GestionFichier As Object
Dim NumSem As Byte
NumSem = DatePart("ww", Date, 2, 2)
Set GestionFichier = CreateObject("Scripting.FileSystemObject")
GestionFichier.CopyFile "T:\Adecco-Partnaire\2017\Adecco.xlsx", "T:\Adecco-Partnaire\2017\Adecco & NumSem &.xlsx"
Set GestionFichier = Nothing
End Sub