Salvare file in base al valore di una cella con vba

Question

Buongiorno

Ho una macro che compila un modulo in automatico vorrei poi salvarlo con un nome tipo "file del" e la data che leggerà da una cella specifica ma le prove che ho fatto finora mi fanno sempre errore o perché non trova la directory o perché non legge il valore della cella..

Potreste aiutarmi?

Answer 1

Ciao ringhio1975,,

buonasera

ho copiato la tua macro e funziona solo che non salva nella directory impostata ma in "c\documenti"..

dove sbaglio?

Mea culpa,

Mea culpa,

Mea maxima culpa 

Sostituisci:

    With ActiveWorkbook

        .SaveAs Filename:=sPrefisso & sData & ".xlsm", _

                FileFormat:=52

con:

    With ActiveWorkbook

        .SaveAs Filename:=sPath & sPrefisso & sData & ".xlsm", _

                FileFormat:=52

===

Regards,

Norman

Answer 2

Scusa per il il ritardo nella risposta ho risolto grazie per il tuo aiuto sei stato gentilissimo

Answer 3

buonasera

ho copiato la tua macro e funziona solo che non salva nella directory impostata ma in "c\documenti"..

dove sbaglio?

Answer 4

Ciao ringhio1975,

Ho una macro che compila un modulo in automatico vorrei poi salvarlo con un nome tipo "file del" e la data che leggerà da una cella specifica ma le prove che ho fatto finora mi fanno sempre errore o perché non trova la directory o perché non legge il valore della cella..

In un modulo standard, prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Dim sPath As String, sData As String, sStr As String

    Const sFoglio As String = "Foglio1"                                                       '<<=== Modifica

    Const sCellaData As String = "D1"                                                         '<<=== Modifica

    Const sPercorso As String = "**C:\Users\NDJ\Documents**"                 '<<=== Modifica

    Const sPrefisso As String = " File_di_"                                                     '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    Set Rng = SH.Range(sCellaData)

    sData = Format(Rng.Value, "dd-mm-yyyy")

    sStr = Application.PathSeparator

    If Right(sPercorso, 1) = sStr Then

        sPath = sPercorso

    Else

        sPath = sPercorso & sStr

    End If

    SH.Copy

    With ActiveWorkbook

        .SaveAs Filename:=sPrefisso & sData & ".xlsm", _

                FileFormat:=52

        .Close

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 5

Ciao ringhio1975

un modulo Excel? Senza vedere la macro è difficile aiutarti.

David