Salvare xlsm da modello xltm



  • Salvare .xlsm da modello .xltm
    di Lucas87 data: 25/11/2015 15:35:08

    Ciao a tutti.
    È parecchio che non scrivo e ora mi trovo di fronte ad un problema.
    Al lavoro ho sempre usato un file .xlt creato con excel 2003 su cui girano diverse macro. Tra queste, utilizzo
    Application.Dialogs(xlDialogSaveAs).Show ("mio.xls")
    per mostrare la finestra di salvataggio e permettere all'utente di scegliere dove e come salvare il file.
    Finalmente l'azienda ha deciso di mettersi al passo con i tempi e ora mi trovo a dover aggiornare il mio file per utilizzarlo su Office 2013.
    E qui cominciano le stranezze:
    Se utilizzo il codice
    Application.Dialogs(xlDialogSaveAs).Show ("mio.xlsm")
    su un file .xlsm funziona (compare la finestra di salvataggio, il nome del file è corretto e il formato proposto è .xlsm).
    Se invece lo utilizzo su un modello .xltm, compare la finestra, ma la casella del nome è vuota e quella del formato file è .xlsx.
    In definitiva quello che voglio ottenere è: partire da un file modello .xltm e mostrare la finestra di salvataggio con già impostato il nome e il formato file .xlsm.

    Grazie a chi si interesserà al problema.



  • di Lucas87 data: 25/11/2015 15:37:59

    Allego alcuni file già preparati per capire.
    Modello vecchio.xlt - una sintesi del file che ho usato fino ad ora.
    File.xlsm - da file xlsm riesco a salvare in xlsm
    Modello.xltm - dal modello non riesco a salvare come vorrei



  • di Lucas87 data: 26/11/2015 09:57:23

    Mi rispondo da solo
     
    fname = Application.GetSaveAsFilename(InitialFileName:="nome file", filefilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm")
    
    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=52