Salvare foglio excel da pulsante

Question

Buongiorno, vorrei capire come poter creare un pulsante o un immagine in un foglio (un modulo da compilare) che mi salvi lo stesso file excel in una determinata cartella sempre in formato excel. Esempio:

ho un modulo da compilare con menu a tendina, caselle di controllo etc... una volta finita la compilazione vorrei che ci fosse una pulsante che salva quel foglio in una determinata cartella con un determinato "nome file" sempre come excel.

Spero sia chiaro, ringrazio anticipatamente.

Answer 1

Ciao Luca,

vorrei capire come poter creare un pulsante o un immagine in un foglio (un modulo da compilare) che mi salvi lo stesso file excel in una determinata cartella sempre in formato excel. Esempio:

ho un modulo da compilare con menu a tendina, caselle di controllo etc... una volta finita la compilazione vorrei che ci fosse una pulsante che salva quel foglio in una determinata cartella con un determinato "nome file" sempre come excel.

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Public Sub SaveFile()

    Dim sPath As String, sStr As String

    Const sNomeFile As String = "Pippo"

    Const sPercorso As String = "C:\Users\Main User\Dropbox\My PC (DESKTOP-4GLHDVM)\Documents"

    With Application

        sStr = .PathSeparator

        If Right(sPercorso, 1) = sStr Then

            sPath = sPercorso

        Else

            sPath = sPercorso & sStr

        End If

        .DisplayAlerts = False

        ThisWorkbook.SaveAs Filename:=sPath & sNomeFile, FileFormat:=52

        .DisplayAlerts = True

    End With

End Sub

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Fai clic con il pulsante destro del mouse sul pulsante o sull'immagine di interesse
• Seleziona l'opzione Assegna Macro
• Seleziona  SaveFile

===

Regards,

Norman