Excel Macro VBA- Comment enregistrer comme xlsm avec un nom de fichier basé sur la date et la valeur de la cellule

Question

J'ai vraiment aimé la solution here qui a fourni VBA que de forcer l'enregistrement en tant que fichier xlsm. En gardant à l'esprit que je connais à peine quoi que ce soit sur VBA, comment pourrais-je modifier ce code pour effectuer les opérations suivantes:

• continuent de forcer enregistrer comme xlsm
nom de fichier
• est égale à la valeur de la cellule C1 dans une feuille nommée " RAPPORT "+ le texte" BSC "+ la date au format YYYY.MM.DD

Toute aide serait grandement appréciée.

Answer 1

Si vous prenez la ligne où il est dit:

ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=ThisWorkbook.FileFormat 
     Application.EnableEvents = True 

Vous enregistrez le fichier en tant que quelle que soit la valeur est enregistrée sous FileNameVal

En utilisant certaines variables de base, vous pouvez définir des chaînes et remplacer la valeur de FileNameVal

Dim newFileName As String, nameDate As String, sheet As String, tempVal As String 

    sheet = "REPORT" 
    tempVal = Sheets(sheet).Range("C1").Text 
    nameDate = Format(Date, "yyyy.mm.dd") 
    newFileName = tempVal & "BSC" & nameDate 

Regardez la fenêtre des sections locales et vous pouvez voir les valeurs changent à mesure que vous entrez dans le code en utilisant F8.