Erreur de compilation sur formule

Salut à tous

cette formule dans ce bout de code ci dessous me permet d'avoir le nom du mois dernier.

ça fonctionne très bien sur une cellule.

Mais dès que je l'intègre dans mon code, il me met erreur de compilation

MERCI

With Worksheets(Sheets.Count)
.Cells(1, 17).FormulaR1C1Local = "=TEXTE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-1;JOUR(AUJOURDHUI()));"mmmm")"
End With

Bonsoir

Il te faut doubler les " (guillemets) pour le format de la date

With Worksheets(Sheets.Count)

.Cells(1, 17).FormulaR1C1Local = "=TEXTE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-1;JOUR(AUJOURDHUI()))"";mmmm"")"

End With

End Sub

Bonsoir,

avec l'enregistreur

With Worksheets(Sheets.Count)
    .Cells(1, 17) = "=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())-1,DAY(TODAY())),""mmmm"")"
End With

Amicalement

Claude

Merci beaucoup

ça marche