Ciao a tutti!
ho un file excel sul mio pc che vorrei, ogni volta che lo chiudo salvare una copia in un percorso di rete. come posso fare?
Ho provato con "Sub before close" ma non ho ben capito come funziona.
Potete aiutarmi?
Grazie
Ciao
Moderatori: Anthony47, Flash30005
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Risp = MsgBox("Salvare il file ?", vbYesNo)
If Risp = 6 Then
ActiveWorkbook.Save
Else
' QUI non si salva il file
' puoi dare un messaggio o ...
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Risp
'
'Verifica se file va salvato:
If Not ThisWorkbook.Saved Then
Risp = MsgBox("Salvare le modifiche apportate al file " & ThisWorkbook.Name, vbYesNoCancel)
If Risp = vbYes Then
ActiveWorkbook.Save
Else
If Risp = vbCancel Then
Cancel = True
Exit Sub
End If
End If
End If
'
'Salvataggio copia:
Risp = MsgBox("Salvare il COPIA del file ?", vbYesNo)
If Risp = 6 Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\Percorso\NomeFile.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End If
End Sub
Torna a Applicazioni Office Windows
Prima riga vuota, dopo ultimo dato compreso in n colonne. Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 2 |
Riempi Modulo da DB e salva un file per Record Autore: Ross72 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 42 ospiti