Comment modifier le nom du document dans Excel?

J'ai une Macro Activé Modèle appelé POINTE-PBI.xltm. Quand j'ai créer un document basé sur ce modèle, Excel automatiquement les noms de CONSEIL-PBI1. Cependant, je veux lui donner un nom personnalisé.

J'ai pensé que je pouvais le faire en modifiant le .Titre de propriété du Classeur. À cette fin, le démarrage de l'événement "Workbook_Open" coup d'envoi, et la suivante est exécutée:

Private Sub Workbook_Open()
    Dim strPBI As String
    strPBI = InputBox$("Enter PBI", "Enter PBI")

    ThisWorkbook.Title = "TIP-PBI-" & strPBI
End Sub

Toutefois, cela ne veut rien dire.

Comment puis-je changer le Titre du document au démarrage?

  • je pense que votre seule option pour modifier le nom dans le WB est de l'enregistrer donc quelque chose comme ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Target.Text & ".xls"
  • Vous avez raison: c'est une réponse. Lors du démarrage d'un nouveau document à partir d'un modèle, toutes les apps de la nouvelle (non enregistré) fichier le nom du modèle avec un numéro d'ordre sur la fin. La seule façon de changer qui est de l'enregistrer sous un nouveau nom.
  • Comment pourrais-je remplacer l'utilisateur en appuyant sur le bouton Enregistrer? Je n'ai pas besoin de l'enregistrer au démarrage, juste besoin de changer le titre du document, de sorte que lorsque l'utilisateur clique sur Save, mon nom personnalisé est le nom suggéré de le fichier.
InformationsquelleAutor AngryHacker | 2012-07-06
  1. 5

    la seule façon de changer le nom du classeur est pour le sauver ( ref ), de sorte que vous pourriez faire quelque chose comme 

    ThisWorkbook.SaveAs ThisWorkbook.Path & "" & FileName & ".xls"

    si vous ne voulez suggérer un nom, puis vous pouvez utiliser GetSaveAsFilename ou

    Application.FileDialog(msoFileDialogSaveAs).InitialFileName = ThisWorkbook.Path & "" & FileName & ".xls"
    InformationsquelleAutor T I
  2. 0

    Si le nouveau classeur est créé à partir d'un modèle, puis il prend le nom du modèle. Donc dans le cas où je souhaite définir le nom du nouveau livre de travail je copie un mannequin modèle pour le nom, puis ouvrez le nouveau classeur basé sur le modèle renommé.

     strFile = "C:\Temp\" & strnewname & ".xltx "

 FileCopy "C:\Temp\Dummy.xltx", strFile

 'Open template to new workbook

 Workbooks.Open Filename:=strFile

 Kill strFile  'delete renamed template
    InformationsquelleAutor Nej Sanerkin