XL 2019 format date en vba

[pascal21]

bonjour a tous
j'ai ce bout de code qui me permet de classer des fichiers dans le bon dossier
je cherche comment faire pour ne pas avoir à réécrire tous les ans la nouvelle année

sNomDossier = ThisWorkbook.Path & "\année 2021\" & Format(Feuil7.Range("l3 "), "mmmm yyyy") & "\"

donc comment remplacer ça?

année 2021

merci

 

[job75]

Bonjour pascal21,

Par exemple pour insérer l'année du jour après le 1er janvier 00:00:00 :

sNomDossier = ThisWorkbook.Path & "\année " & Year(Date)  & "\" & Format(Feuil7.Range("l3 "), "mmmm yyyy") & "\"

Si l'on veut une autre année il faut la paramétrer (cellule, InputBox...).

A+

 

[pascal21]

ok merci j'avais essayé ce code mais j'ai du mal l'écrire ça marchait pas