XL 2013 numero de semaine

Arctica

XLDnaute Nouveau
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
 

JCGL

XLDnaute Barbatruc
Bonjour à tous,


"T:\Adecco-Partnaire\2017\Adecco" & NumSem &".xlsx" me semble plus juste

A+ à tous
 

Discussions similaires


Haut Bas