Discussion :

[Florent6744]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
essai date.xlsm

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Florent6744]

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