N° semaine dans Macro

[Kam7]

Bonjour tout le monde,

Je souhaite faire une sauvegarde automatique en intégrant dans le nom du fichier le numéro de la semaine du jour de l'enregistrement automatique j'en suis à :

Sub TestNumSem()
Nomfichier = "Semaine_du_" & NO.SEMAINE(TODAY(), 2) & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Svgde\" & Nomfichier
End Sub

Mais ça ne marche pas

Quelqu'un aurait-il la solution.

Merci

Kam7

 

[Jean-Marie]

Bonjour Kam7

La fonction N0.SEMAINE, n'est pas une fonction VBA, tu ne peux pas l'utiliser sous cette forme, elle appartient à la macro complémentaire Utilitaire d'Analyse.

Remplace N0.SEMAINE(TODAY(),2) par DatePart("ww", Date, vbMonday)

Bonne journée

@+Jean-Marie

 

[Kam7]

Salut Jean-Marie,

ça marche super

Merci pour ta réponse et pour tes explications sur mon erreur.

Bonne journée

@+ Kamel