Erreur de syntaxe

Bonjour,

Je suis entrain de chercher un erreur dans mon code.
Qui me permettra de basculer sur un classeur avec un nom variable (22.11.2019 19 42 PM_CHI-Genève.xls), la date va changer.

J'ai essayé ça: Mon_fichier = " & dateauj & "_CHI.xlsx
Mais ça ne marche pas

Merci d'avance de votre aide

Sub Création_fichier()
    Dim dateauj
    dateauj = Format(Now(), "DD-MM-YYYY hh mm AMPM")
    MsgBox "La valeur est " & dateauj & " "

     Set newbook = Workbooks.Add
        With newbook
           
             ActiveWorkbook.SaveAs Filename:= _
            "https://d.docs.live.net/e37a1a3739d5d227/CHI-W/Edition%20en%20cours/" & dateauj & "_CHI.xlsx" _
            , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        End With
    Mon_fichier = " & dateauj & "_CHI.xlsx
    
    Windows("CHI-W Genève édition actuelle.xlsm").Activate
    Sheets("Liste nom").Select
    Range("A1:R101").Select
    Range("H78").Activate
    Selection.Copy
    Windows("mon_fichier").Activate ' a trouver formule pour avoir la date à jour selon la création
End sub