Fonction WEEKNUM - ajouter un 0 avant n° de semaine

Bonjour,

J'ai ceci qui m'affiche la concaténation des deux derniers chiffres de l'année et le n° de semaine d'une date donnée :

Worksheets("import data").Cells(2, 38).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-9]<>""?"",RIGHT(YEAR(RC[-9]),2)&WEEKNUM(RC[-9],21),RIGHT(YEAR(RC[-10]),2)&WEEKNUM(RC[-10],21))"

Par exemple, pour une date au 07/01/2021, j'ai "211".

Je voudrais pouvoir insérer un 0 avant le n° de semaine pour les semaines 1 à 9, afin d'obtenir pour cet exemple "2101".

Merci d'avance pour vos propositions !

Bonjour,

Pour le principe !?

Worksheets("import data").Cells(2, 38).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-9]<>""?"",RIGHT(YEAR(RC[-9]),2)&WEEKNUM(RC[-9],21),RIGHT(YEAR(RC[-10]),2)&TEXT(WEEKNUM(RC[-10],21),"00")"

Cdlt.

Merci de votre réponse.

Mais quand je colle votre message, j'ai ce message d'erreur :

Re,

Pour le principe, c'est =TEXTE(nombre;"00") avec la formule.

Maintenant utilise l'enregistreur de macro, pour avoir la bonne syntaxe.

Cdlt.

C'est bon j'ai réussi, merci beaucoup !

Worksheets("import data").Cells(2, 38).Select ActiveCell.FormulaR1C1 = "=IF(RC[-9]<>""?"",RIGHT(YEAR(RC[-9]),2)&TEXT(WEEKNUM(RC[-9],21),""00""),RIGHT(YEAR(RC[-10]),2)&TEXT(WEEKNUM(RC[-10],21),""00""))"