VB Enregistrer à l'actuel chemin d'accès et nom de fichier, et ajouter de la date du jour pour le nom de fichier

Je suis très, très nouveau pour VB et je suis reconnaissant d'avoir trouvé ce site!

J'ai cherché et revue tous les auto-suggéré similaire Q&Un des liens pour ma question, mais n'ai pas trouvé exactement ce que je cherchais (peut-être parce que je ne comprenais pas ce que je cherchais... ;-).

J'ai utilisé cette macro Excel à partir d'un autre utilisateur question, a répondu par Siddharth Déroute:

Macro avec Save Date Actuelle

Sub Save()
    Dim FilePath As String
    Dim NewName As String

    FilePath = "X:\": NewName = FilePath & "file" & Format(Date, "MM-DD-YYYY") & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Cela fonctionne parfaitement si je veux que le fichier soit nommé "fichier" (ou ce que j'ai insérer dans les citations).

Mais, comment pourrais-je modifier cette macro pour qu'il fonctionnera sur n'importe d'ouvrir le fichier de sorte que la date est ajoutée à l'existant du fichier chemin d'accès et nom de fichier?

Merci d'avance pour votre aide!

Andy

OriginalL'auteur AMM | 2013-05-03

  1. 3
    dim last_dot as long
last_dot = InStrRev(ActiveWorkbook.FullName, ".")

dim NewName as string
NewName = Left$(ActiveWorkbook.FullName, last_dot - 1) & Format$(Date, "MM-DD-YYYY") & Mid$(ActiveWorkbook.FullName, last_dot)
    Merci beaucoup! Pouvez-vous simplifient les autres pour moi, s'il vous plaît? 🙂 Où dois-je insérer votre script et que fait-il remplacer dans la mienne? Merci!
    Il remplace le code entre Sub Save() et ActiveWorkbook.SaveAs, non inclusivement.
    Merci encore reçu une erreur d'exécution '1004': "Cette extension ne peut pas être utilisé avec le type de fichier sélectionné. Changez l'extension du fichier dans la zone nom de Fichier ou sélectionnez un autre type de fichier en changeant l'Enregistrer en tant que type." J'ai pris un noob complet tir dans le noir et supprimé le FileFormat partie. Cela a fonctionné, mais je ne sais pas pourquoi. Si vous avez le temps d'expliquer, je lui en serais reconnaissant - peu importe, merci pour votre aide!
    les demandes au format xlsm alors que vous, vous voulez garder votre format actuel. Vous faites cela en ne fournissant pas de paramètre.
    Merci beaucoup - qui fait sens. J'ai une mise en abyme pour vous si vous êtes intéressés: cela Pourrait-il être modifié pour ajouter un numéro de version (par exemple, "v1") si l'enregistrement de la même fichier plusieurs fois dans la même journée?

    OriginalL'auteur GSerg