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
 

Discussions similaires

Réponses
1
Affichages
609
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40