excel Creare un backup senza alterare il nuovo file

[Zagor57]

Buongiorno
Sicuramente il titolo del TOPIC non da l'idea di quello che vorrei
cerco di spiegarmi meglio, devo fare un backup di un file nominato "Registro dei Corrispettivi " dove attraverso una macro tutti i dati (VALORI ) dei 12 fogli =Mesi vengono copiati in un solo foglio cosi di anno in anno,e i dati dell'anno appena trascorso vengono cancellati per preparare il file per il nuovo anno,ho deciso di fare una copia integrale di tutto il file con il nome (Registro dei Corrispettivi aggiungendo la data del Salvataggio) es...Registro dei Corrispettivi 2015/12/30....., prima che questi vengono cancellati , questa è la parte di macro che chiedo il vostro aiuto ....

Codice: Seleziona tutto

Sub CopiaAnno()
 '
' CopiaAnno Macro
       
    '
    '
    If UCase(Sheets("DIC").Range("AI30")) <> "SI" Then '<<<<<<<<<Condizione di conferma se salvare o non salvare
      MsgBox ("Dati non Caricati ")
     
    Exit Sub
     End If
    '....
    '... '<<<<<<<<<<<<<Backup dell'intero file
    Range("a1").FormulaR1C1 = "=today()"
nome = "D:\Archivio Gruppo\Archivio Registro dei corrispettivi\Registro dei Corrispettivi  " & Format([A1], "-yyyy-mm-dd") & ".xlsm"
MsgBox (nome)
ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'<<<<<In questo nuovo file tutti i dati rimangono  nei 12 fogli che sono i Mesi
'
 '<<<<<<<<<<<<<Qui dovrei attivare di novo il file originale per continuare la copia  nel foglio DBvendita,e... a seguire la cancellazione dei dati       ????????????????
 '
'
 'GENNAIO
 '
    Sheets("DIC").Select
    Sheets("DBvendita").Visible = True
    Sheets("DBvendita").Select
    ActiveSheet.Unprotect
    Sheets("GEN").Select
    ActiveSheet.Unprotect
    Range("C3:P40").Select
    Selection.Copy
    Sheets("DBvendita").Select 

e.......... fin quà relativamente tutto OK ,se non fosse per il fatto che il resto della macro e cioè la cancellazione dei dati e quant'altro, vengono eseguiti sul nuovo file appena creato e non sul file Originale .
Come faccio a riattivare il file Originale ( Registro dei Corrispettivi )???
Spero nel vostro aiuto

Grazie

[Anthony47]

Quando fai ActiveWorkbook.SaveAs il vecchio workbook scompare dalla memoria e rimane solo il nuovo; pero' puoi usare

Codice: Seleziona tutto

ActiveWorkbook.SaveCopyAs Filename:=nome

e in questo modo avrai una copia su disco col nuovo nome e il workbook originale rimane aperto e attivo.

Ciao

[Flash30005]

Leggi il post di Anthony

Devi impostare le variabili nome e percorso del workbook originale prima del salvataggio e richiamare il file prima di chiudere la copia,
nel tuo caso...

Codice: Seleziona tutto


Sub CopiaAnno()
 '
' CopiaAnno Macro
       
    '
    '
    If UCase(Sheets("DIC").Range("AI30")) <> "SI" Then '<<<<<<<<<Condizione di conferma se salvare o non salvare
      MsgBox ("Dati non Caricati ")
     
    Exit Sub
     End If
    '....
    '... '<<<<<<<<<<<<<Backup dell'intero file
    Range("a1").FormulaR1C1 = "=today()"
nome = "D:\Archivio Gruppo\Archivio Registro dei corrispettivi\Registro dei Corrispettivi  " & Format([A1], "-yyyy-mm-dd") & ".xlsm"
NomeF = Format([A1], "-yyyy-mm-dd") & ".xlsm"

MsgBox (nome)

'<<<< aggiungere questo blocco qui sostituendo la parte esistente
Perc = ThisWorkbook.Path
MyWB = ActiveWorkbook.Name


ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 Workbooks.Open Filename:=Perc & "\" & MyWB
Workbooks(NomeF).Close


'<<< fine aggiunta/modifica



 '<<<<<<<<<<<<<Qui dovrei attivare di novo il file originale per continuare la copia  nel foglio DBvendita,e... a seguire la cancellazione dei dati       ????????????????
 '
'



ciao

[Zagor57]

OK
Risolto perfettamente come suggerito da Anthony
Con la soluzione di Flash che era molto simile a quella che ero riuscito a fare io

Codice: Seleziona tutto

Sub CopiaAnno()
 '
' CopiaAnno Macro
       
    '
     If UCase(Sheets("DIC").Range("AI30")) <> "SI" Then '<<<<<<<<<Condizione di conferma se salvare o non salvare
      MsgBox ("ATTENZIONE......Dati non Caricati Selezionare  SI  al Lato DX ")
     
    Exit Sub
     End If
    '....
    '...
    '...
    Range("a1").FormulaR1C1 = "=today()"
nome = "D:\Archivio Gruppo \Archivio Registro dei corrispettivi\Registro dei Corrispettivi Anno " & Format([A1], "-yyyy") & ".xlsm"
'MsgBox (nome)
ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 '
 '
 nome = "D:\Archivio Gruppo \EXCEL\Registro dei Corrispettivi" & ".xlsm"
'MsgBox (nome)

ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<CODIA I DATI in DBvendita

mi dava comunque errore,non ho approfondito del perchè inquanto mi va benissimo la soluzione di Anthony
Grazie a tutti e due per la vostra preziosa risposta
Faccio una domanda:durante la copia è possibile far apparire un messaggio tipo " attendere copia in corso "

ancora grazie e ciao

[Flash30005]

ho tenuto conto di questa tua esigenza

'<<<<<<<<<<<<<Qui dovrei attivare di novo il file originale per continuare la copia nel foglio DBvendita,e... a seguire la cancellazione dei dati ????????????????

e infatti la macro che ti ho postato riapre il file originale

Non so perché ti dà errore (a me funziona bene), ma visto che hai risolto non approfondisco

ciao

[Zagor57]

Ciao Flash
In riferimento a.....

Faccio una domanda:durante la copia è possibile far apparire un messaggio tipo " attendere copia in corso "

Mi sapresti dare una risposta ?
se " SI " potresti suggerirmi come per favore


Grazie
Ciao

[Anthony47]

Scarica questi due file nella stessa directory:
https://www.dropbox.com/s/yndxvi96pu854 ... 1.frm?dl=0
https://www.dropbox.com/s/fihsfa2tg42h8 ... 1.frx?dl=0

Poi vai sul vba e fai Menu /File /Importa file, e scegli il file UserForm1.frm

Vai nella tua macro; quando vuoi far comparire il messaggio inserisci l'istruzione

Codice: Seleziona tutto

UserForm1.Show vbModeless


Quando vuoi che scompaia:

Codice: Seleziona tutto

Unload UserForm1


Ciao

[Zagor57]

OK benissimo così
grazie

Ciao

[Zagor57]

Ciao Anthony
Scusa se disturbo ancora ,perchè la UserForm mi da solo un riquadro bianco senza il testo e senza immagine?
Quando ho visto la UserForm mi sono chiesto del come fosse stata creata, poichè non avevo l'idea di come creare una userform,e ci sono riuscito a creare la mia UserForm ti allego i file,però....durante la creazione tutto OK si visualizza perfettamente invece quando lancio la macro mi da solo un riquadro del tutto bianco senza immagine e testo.
Allora mi sono chiesto forse sbaglio qualcosa e sono ritornato ad inserire la tua UserForm ma mi da lo stesso riquadro bianco
perchè???? dove sbaglio ?

questi sono i file
http://www.filedropper.com/userform1
http://www.filedropper.com/userform1_1

Ciao

[Zagor57]

Ciao Anthony
Frugando nei vari Topic ho trovato un tuo topic del 28/07/2011 dove trattava lo stesso problema dove tu hai suggerito l'inserimento dopo Show vbModeless

Codice: Seleziona tutto

DoEvents

e sembra sia risolto il problema
PER ORA TUTTO OK
Grazie

[Anthony47]

Codice: Seleziona tutto

    DoEvents

e sembra sia risolto il problema

Io non avrei saputo fare di meglio

Alla prossima...