salvare un file excel in una directory con valore di una cella

raffaele1953, 01/09/2014 15:42:

---

Anche questa salva una copia di tutti i fogli pero con formato XLSM

Option Explicit
Sub copia()
    Dim Ws1 As Worksheet:  Set Ws1 = ThisWorkbook.Worksheets("Dati")
    Dim Percorso As String, nomeFile As String, Verifica
    Percorso = Ws1.Range("J2")
    Application.ScreenUpdating = False
    'Application.DisplayAlerts = False
    Ws1.Select
    nomeFile = Sheets("Sviluppo").Range("F21")
    Set Verifica = CreateObject("Scripting.FileSystemObject")
    If Not Verifica.FolderExists(Percorso) Then
        Verifica.CreateFolder (Percorso)
        Percorso = Percorso & "\" & nomeFile & ".XLSM"
        ActiveWorkbook.SaveCopyAs Filename:=Percorso
        Workbooks.Open Percorso
    Else
        Percorso = Percorso & "\" & nomeFile & ".XLSM"
        ActiveWorkbook.SaveCopyAs Filename:=Percorso
        Workbooks.Open Percorso
    End If
    'Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Set Ws1 = Nothing
End Sub

---