macro salavaxlm

Hai un problema con Excel?

Nuova discussione

macro salava.xlm
di CATEREBO (utente non iscritto) data: 14/11/2014 16:26:23
Ciao a tutti,
Nel foglio CREA COMMESSA ho bisogno di creare una macro (SALVA) che salva il mio file con estensione .xlsm utilizzando il la Directory inserita nella cella A6 e il Nome del File nella cella A7.
Ho fatto vari tentativi ma al massimo riesco a salvare il file in formato .xlNormal ma in questo modo poi non mi funzionano tutte le Macro che ho...
Mi potete aiutare

Sub SALVA()

    Dim p As Worksheet
    Dim Directory As String
    Dim NomeFile As String
    
    Set p = Worksheets("CREA COMMESSA")
        
    Directory = p.Cells(6, 1).Value
    NomeFile = p.Cells(7, 1).Value


    ChDir Directory
    ActiveWorkbook.SaveCopyAs Filename = Directory + NomeFile
        
End Sub

di Rita (utente non iscritto) data: 14/11/2014 16:41:00
spartana ma funzionante

 FILE = Range("A6") & "" & Range("A7")
    ActiveWorkbook.SaveAs Filename:=FILE & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

di CATEREBO (utente non iscritto) data: 14/11/2014 16:46:08
e come faccio ad aprire il file salvato?
di lepat (utente non iscritto) data: 14/11/2014 16:49:17
non sapendo cosa c'è nelle celle a cui fai riferimento è difficile rispondere, comunque, se usato correttamente, savecopy lascia intatto il formato di salvataggio.
di rita (utente non iscritto) data: 14/11/2014 17:13:27
Scusa,
hai chiesto come fare per salvare il file con le modalita' che hai richiesto
che cacchio vuol dire .... come faccio ad aprirlo?
di CATEREBO (utente non iscritto) data: 17/11/2014 07:47:19
Rita
scusa, funziona perfettamente! grazie mille mi hai risolto un problemone!!
di CATEREBO (utente non iscritto) data: 19/11/2014 11:41:42

Vuoi Approfondire?