Format date avec concatener

Bonjour,

Je viens à vous pour une petite aide.
Je pense être à rien de trouver la solution pour ce que je cherche mais je cale complet.

Je vous explique, je cherche a concaténer dans la cellule A3 le nom du fichier qui se nommera 20190209_MAI_BDC_TOTO_TS0523.

Petite précision en version Excel ça donne la date du jour sous la forme cité au dessus_MAI_BDC_valeur de la cellule A2_Valeur cellule BA2

J'ai réalisé la macro suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub date_test() ' ' Macro9 Macro Dim LaDate As String   LaDate = Format(Date, "yyyymmdd")   ActiveCell.FormulaR1C1 = _ "=CONCATENATE(LaDate,""_MAI_BDC_"",R[-1]C,""_"",R[-1]C[52])" Range("A3").Select End Sub

---

Mais lorsque je la réalise la cellule affiche #NOM?.

Je ne trouve pas pourquoi il ne fonctionne pas.

Je vous mets le fichier d'essai si ça peut vous aider.

Merci d'avance
Pièce jointe 448529

Bonjour,
Une formule placée dans excel ne peut faire référence à des variables VBA donc tu dois utiliser les fonctions d'excel
Exemple de la formule placée dans la cellule active

Code:

---

ActiveCell.Formula = "=CONCATENATE(TEXT(TODAY(), ""aaaammjj""),""_MAI_BDC_"",A2,""_"",BA2)"

---

Autre exemple du placement de la formule dans les cellules C2:C10 de la feuille nommée Feuil1 du classeur où se trouve le code VBA

Code:

---

1 2 3

With ThisWorkbook.Worksheets("Feuil1") .Range("C2:C10").Formula = "=CONCATENATE(TEXT(TODAY(), ""aaaammjj""),""_MAI_BDC_"",A2,""_"",BA2)" End With

---

Merci beaucoup pour ton aide, ça fonctionne au top.