Insérer une formule dans une cellule en code VBA

Bonjour cher Forum!

Je me bute à un problème 1004 quand j'essaie d'insérer une formule dans une cellule en code VBA. J'ai essayé de l'écrire en français au départ et ensuite en anglais, mais rien n'y fait et je n'arrive pas à trouver l'erreur... Voici le code :

Private Sub Test()

    ActiveSheet.Range("G16").Formula = "=IFERROR(DATE(YEAR(TODAY());MONTH($C$16);1);""aaaa-mm-jj"")"

End Sub

Pouvez-vous m'aider et me dire qu'est-ce qui ne fonctionne pas? Merci de votre aide!

Bonjour,

Teste ceci

ActiveSheet.Range("G16").Formula = "=IFERROR(TEXT(DATE(YEAR(TODAY()),$C$16,1),""aaaa-mm-jj""),"""")"

Bonjour,

Malheureusement ça ne fonctionne pas sans la fonction "Mois" il détecte une erreur me renvoie "aaaa-mm-jj" au lieu de m'indiquer la premier journée du mois de la date inscrite en G16...

Je viens d'essayer en entrant la fonction MONTH et je me suis aperçu que j'avais des virgules au lieu de des points virgule! ça fonctionne très bien maintenant :

ActiveSheet.Range("G16").Formula = "=IFERROR(DATE(YEAR(TODAY()),MONTH(C16),1),""aaaa-mm-jj"")"