Excel salva con nome da macro

[wallace&gromit]

Ciao, con questa macro riesco correttamente ad aprire un modello di file che mi serve e salvarlo con il nome "Nuova.xlsm".
Riesco anche a fare apparire la finestra di dialogo salva con nome, in modo da salvare con il nome scelto dall'utente, ma quest'ultimo passaggio non funziona, la finestra si chiude e rimango con il file aperto che si chiama ancora "Nuova".

Codice: Seleziona tutto

Sub ApriModello()
perc1 = "I:\PROGRAMMI UFFICIO\4 - Fatturazione\Fatture emesse\"
perc2 = "I:\PROGRAMMI UFFICIO\4 - Fatturazione\Modelli\"

If Range("J4") <> "Modello non disponibile" Then
fileN = perc2 & Range("J4") & ".xlsm"
Workbooks.Open fileN
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (perc1 & "Nuova.xlsm")
Application.DisplayAlerts = True

With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = perc1
.Show
End With

End If
End Sub


[Anthony47]

Ma infatti questi Dialogues consentono solo di scegliere o impostare un percorso+nome, non eseguono nessuna operazione di Apri o Salva; che va fatta poi usando la selezione ottenuta, tipo:

Codice: Seleziona tutto

    If .SelectedItems.Count = 0 Then
         MsgBox ("Nessuna voce selezionata, procedura annullata")
         Exit Sub
    End If
    FullNome = .SelectedItems(1)     'Directory e Nome del file selezionato
End With

In questo modo la variabile FullNome conterra' percorso e nome impostato, e potrai usarlo in un comando di salvataggio.

Ciao

[wallace&gromit]

Acc... e sì che di esempi corretti ne avevo! grazie mille

[klingklang]

All'inizio usavo anch'io FileDialog, poi mi sono convertito a GetSaveAsFileName... è più semplice da gestire e ha meno problemi di compatibilità con Mac. Ma si raggiunge in ogni caso lo stesso risultato (una stringa che contiene il percorso del file da salvare)

[wallace&gromit]

sì, hai ragione Enrico: GetSaveAsFileName sembra una soluzione interessante, per esempio permette anche di già filtrare per file xlsm, come voglio io, ci devo ancora lavorare, ma la strada può essere quella.

[Anthony47]

Se si parla di semplificazione allora si potrebbe andare su Application.Dialogues che puo' presentare tutte (tutte?) le finestre di dialogo di Excel; es

Codice: Seleziona tutto

nFile = "C:\Percorso\NuovaCopia.xlsx"          ' Opzionale, diventa il nome file di default
rFlag = Application.Dialogs(xlDialogSaveAs).Show(nFile)


A conclusione del comando il file risulta gia' salvato col nome contenuto in nFile (o comunque scelto dall'utente tramite la finestra di dialogo), ed e' possibile impostare (da codice o per scelta sul dialog box) vari parametri (es una password di apertura file)
La variabile rFlag conterra' True /False a seconda che l'operazione si sia conclusa correttamente o no.

Ci sono centinaia di Dialogs disponibili con propri parametri, vedi alla voce "Elenchi degli argomenti delle finestre di dialogo incorporate"

Ciao