| | Post: 16 | Registrato il: 27/01/2020
| Età: 65 | Utente Junior | 2013 | | OFFLINE | |
|
22/02/2021 12:01 | |
buongiorno a tutti un piccolo aiuto, ho reperito questa macro sul web che crea un backup sul desktop vorrei cambiare percorso in documenti ma non riesco a capire dove sostituirlo. grazie mille
Private Sub backup_Click()
Dim saveDate As Date
Dim saveTime As Variant
Dim formatTime As String
Dim formatDate As String
Dim backupFolder As String
saveDate = Date
saveTime = Time
formatTime = Format(saveTime, "hh.MM.ss")
formatDate = Format(saveDate, "DD - MM - YYYY")
Application.DisplayAlerts = False
backupFolder = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"
Application.DisplayAlerts = True
MsgBox "Backup creato con successo in " & backupFolder
End Sub
|
|
| | Post: 4.591 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
22/02/2021 12:11 | |
VB Private Sub backup_Click()
Dim saveDate As Date
Dim saveTime As Variant
Dim formatTime As String
Dim formatDate As String
Dim backupFolder As String
saveDate = Date
saveTime = Time
formatTime = Format(saveTime, "hh.MM.ss")
formatDate = Format(saveDate, "DD - MM - YYYY")
Application.DisplayAlerts = False
backupFolder = ThisWorkbook.Path & "\" '<====== QUI
ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"
Application.DisplayAlerts = True
MsgBox "Backup creato con successo in " & backupFolder
End Sub
Alfredo |
| | Post: 16 | Registrato il: 27/01/2020
| Età: 65 | Utente Junior | 2013 | | OFFLINE | |
|
22/02/2021 12:39 | |
grazie alfri, mi da errore file non è stato trovato
Private Sub CommandButton6_Click()
Dim saveDate As Date
Dim saveTime As Variant
Dim formatTime As String
Dim formatDate As String
Dim backupFolder As String
saveDate = Date
saveTime = Time
formatTime = Format(saveTime, "hh.MM.ss")
formatDate = Format(saveDate, "DD - MM - YYYY")
Application.DisplayAlerts = False
backupFolder = ThisWorkbook.Path & "C:\Users\HWRUser\Documents\Backup Padel"
ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"
Application.DisplayAlerts = True
MsgBox "Backup creato con successo in " & backupFolder
End Sub
|
| | Post: 4.592 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
22/02/2021 14:02 | |
Ovviamente devi togliere "ThisWorkbook.Path &"
Alfredo |
|
|