Copier valeur sur un fichier source à nom variable

Bonjour à tous,

Je n'ai pas trouvé de sujets existants répondant à ma question,

Voilà donc mon problème :

J'ai un fichier source, qui change de nom tous les jours (nommé APPROS "Date du jour".xlsm)

Un autre fichier nommé Niveau.xlsm

Je souhaiterais copier des éléments du fichier Niveau.xlsm sur le fichier source, ce dernier étant déjà ouvert.

Comment pourrais-je procéder ?

Ma macro jusqu'alors ressemble à ça :

Workbooks.Open Filename:="Disque:\répertoire de mon fichier\NIVEAUX.xlsm"
    Windows("NIVEAUX.xlsm").Activate
    ActiveWorkbook.Worksheets("Niveau").Activate
    Range("J7").Select
    Selection.Copy
    Windows("APPROS.xlsm").Activate
    ActiveWorkbook.Worksheets("Feuil1").Activate
    Range("C24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Cependant, le nom de mon fichier étant variable, je ne sais pas comment faire.

Edit: La macro se trouve sur le fichier source

Merci d'avance pour vos réponses

Elise

Slt Elise,

essaie comme ca

Windows("APPROS" & Format(Date, "ddmmyyyy") & ".xlsm").Activate

fais attention au format de la date "ddmmyyyy"

Bonne journée

Merci pour ta réponse,

le nom du fichier est précisément sous cette forme : 21.02.2019 APPROS.xlsm

Du coup, le code devrait-il être celui-ci ? :

Windows(Format(Date, "dd.mm.yyyy") & "APPROS.xlsm").Activate

Windows(Format(Date, "dd.mm.yyyy") & " APPROS.xlsm").Activate

Parfait, merci beaucoup pour ton aide