Macro Excel pour définir un nom de fichier par défaut lors de l'enregistrement

Je ne suis pas un programmeur, mais je comprends un peu sur le sujet. J'ai actuellement une macro dans word qui enregistre un nouveau document avec un nom par défaut et la date actuelle. Je suis en train de faire la même chose dans excel 2010, mais ne savent pas comment.

Toute aide serait grandement appréciée.
C'est la macro pour word que j'utilise.

Sub FileSave()
    If ActiveDocument.Path = "" Then
                With Dialogs(wdDialogFileSaveAs)
            .Name = MakeDocName 
            .Show
        End With
    Else
        ActiveDocument.Save
    End If
End Sub

Function MakeDocName() As String
    Dim theName As String
    Dim uscore As String
    uscore = "_"

    theName = "DocType_DocDescription_"
    theName = theName & Format(Now, "yyyy-mm-dd")



    MakeDocName = theName  
End Function

Sub FileSaveAs()
     With Dialogs(wdDialogFileSaveAs)
            .Name = MakeDocName  
            .Show                
End With

End Sub
  • Vous devriez vraiment essayer de l'écrire en VBA Excel (en commençant par le Mot de code VBA que vous avez), puis de voir quels problèmes spécifiques que vous avez et de poser des questions sur ceux-ci. Il me semble que ce serait pour la plupart, sauf pour les Dialogues fonction des lignes peuvent avoir besoin d'être changé.
  • Tout d'abord, ActiveDocument dans Word est ActiveWorkbook dans Excel.
InformationsquelleAutor user3254556 | 2014-01-30
  1. 2

    Utiliser la fonction intégrée de .GetSaveAsFilename

    La syntaxe est

    expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Titre, ButtonText)

    Exemple

    Option Explicit

Sub Sample()
    Dim Ret
    Dim InitFile As String

    InitFile = "MyFile" '<~~ You can set Default name here

    Ret = Application.GetSaveAsFilename(InitialFileName:=InitFile, _
                                        fileFilter:="Excel Files (*.xlsx), *.xlsx", _
                                        FilterIndex:=1, _
                                        Title:="Save As")

    If Ret <> False Then
        '
        '~~> Code to save the file
        '
    End If
End Sub
    • +1! Je suis très lentement aujourd'hui, vous êtes en avance de m' .GetSaveAsFilename🙂
    InformationsquelleAutor Siddharth Rout
  2. 2

    Mis à jour en réponse à un commentaire. Ajoutez ce code à un ThisWorkbook module produira le nom de fichier personnalisé lors de n'importe quel document est enregistré.

    Option Explicit
Private WithEvents App As Excel.application

Private Sub Workbook_Open()
    Set App = application
End Sub

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
    App.EnableEvents = False
    If Wb.Path = "" Then
        With App.Dialogs(xlDialogSaveAs)
            Call .Show(MakeDocName, xlOpenXMLWorkbookMacroEnabled)
        End With
    Else
        Wb.Save
    End If
    App.EnableEvents = True
    Cancel = True
End Sub


Function MakeDocName() As String
    Dim theName As String
    Dim uscore As String
    uscore = "_"

    theName = "DocType_DocDescription_"
    theName = theName & Format(Now, "yyyy-mm-dd")

    MakeDocName = theName
End Function
    • Merci pour votre aide, j'ai sauvé cette macro dans un fichier appelé livre.xlt, et de le mettre dans le dossier xlstart, il est là quand j'ai commencer à excel, mais il ne semble pas faire quoi que ce soit. Est-ce la bonne procédure?
    • Qu'attendez-vous d'elle?
    • Ce que j'espère, c'est que je peux faire la même chose que j'ai dans Word, que j'ai posté ci-dessus. Dans word, lorsque quelqu'un enregistre un nouveau document ou un Enregistrer sous. le nom du document est livré pré peuplées comme ça. "DocType_DocDescription_2014-02-03.docx" de Cette façon, l'utilisateur sait qu'il faut mettre dans le type de document et la description. La date est renseignée automatiquement.
    • J'ai mis à jour ma réponse.
    InformationsquelleAutor Joe