Condividi:        

Cambio nome del FILE

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Cambio nome del FILE

Postdi scanacc » 24/12/16 17:35

Ciao a tutti e Buon Natale.
Ho fatto un programmino su excel che spesso provo a migliorarlo e quindi gli cambio spesso nome. In questo programmino ci sono tantissime macro ed una di queste è quella sottoriportata che uso spesso per chiudere i file nascosti.
Quando rinomino il FILE, devo sempre cambiare anche il nome del FILE inserito nella macro sottoriportata altrimenti il programma mi indica un errore.
Per spiegarmi meglio se il file lo rinomino "Nome File PROVA 1.1", devo entrare anche in detta macro e cambiare il nome anche li.
Ci sarebbe mica un comando che consente alla macro di cambiare in automatico?
Grazie e ciaooooo

Codice: Seleziona tutto
'CHIUDI FILE NASCOSTI
   Application.ScreenUpdating = False
   Windows("Nome Fail PROVA.xlsm").Activate

    Sheets("Foglio1").Visible = True
    Sheets("Foglio2").Visible = True
    Sheets("Foglio3").Visible = True
    Sheets("Foglio4").Visible = True
    Sheets("Foglio5").Visible = True
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: Cambio nome del FILE

Postdi patel » 24/12/16 18:52

ce la puoi far vedere tutta questa macro ?
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Cambio nome del FILE

Postdi scanacc » 25/12/16 00:46

Scusa per il doppio errore (File non Fail) :oops: :oops: :oops:

Codice: Seleziona tutto
'CHIUDI FILE NASCOSTI
   Application.ScreenUpdating = False
   Windows("Nome File PROVA.xlsm").Activate

    Sheets("Foglio1").Visible = True
    Sheets("Foglio2").Visible = True
    Sheets("Foglio3").Visible = True
    Sheets("Foglio4").Visible = True
    Sheets("Foglio5").Visible = True
End Sub
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: Cambio nome del FILE

Postdi patel » 25/12/16 08:44

questa macro non chiude file ma rende visibili fogli nascosti
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Cambio nome del FILE

Postdi scanacc » 25/12/16 23:54

Si hai ragione.
Il problema comunque sta proprio qui
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: Cambio nome del FILE

Postdi scanacc » 26/12/16 00:01

Si hai ragione.
Il problema comunque sta proprio qui
Quando rinomino il FILE, devo sempre cambiare anche il nome del FILE inserito nella macro riportata altrimenti il programma mi indica un errore.
Per spiegarmi meglio se il file lo rinomino "Nome File PROVA 1.1", devo entrare anche in detta macro e cambiare il nome anche li.
Ci sarebbe mica un comando che consente alla macro di cambiare in automatico?
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: Cambio nome del FILE

Postdi Flash30005 » 26/12/16 01:39

Non è molto chiaro cosa fai e come lo fai
cerco solo di interpretare ciò che hai detto
1) hai un file Prova.xlsm (con macro) che rende visibili dei fogli
2) vuoi salvare il file attuale con altro nome e quando lo riapri la macro deve poter riconoscere con quale file stai lavorando

quindi non devi fa altro che scrivere queste due righe codice
Codice: Seleziona tutto
Dim Wb As Workbook
Set Wb = ActiveWorkbook

'--- tua macro
'CHIUDI FILE NASCOSTI
   Application.ScreenUpdating = False

'Windows("Nome File PROVA.xlsm").Activate  '<<<< eliminare o commentare questa tua riga codice
  Wb.Activate   '<<<<<< inserire questa al posto della precedente

    Sheets("Foglio1").Visible = True
    Sheets("Foglio2").Visible = True
    Sheets("Foglio3").Visible = True
    Sheets("Foglio4").Visible = True
    Sheets("Foglio5").Visible = True
'<<<< fine tua macro

' VB.Close SaveChanges:=True  '<<<< togliere il commento all'inizio codice se vuoi chiudere e salvare l'attuale file il file
End Sub



Se invece hai un applicativo o macro da altro file di Excel che apre il file "Nome File PROVA.xlsm"
allora ti conviene lasciare il nome
"Nome File PROVA.xlsm" con l'ultima versione (l'applicativo esterno avvierà sempre questo file)
e in caso di modifica (prima di effettuarla)
1) fai una copia del file "Nome File PROVA.xlsm"
2) e lo rinominerai "Nome File PROVA_New_001.xlsm"
apri il file Nome File PROVA.xlsm e lo modifichi salvandolo su se stesso
alla nuova modifica ripeti i punti 1 e 2
rinominando la copia "Nome File PROVA_New_002.xlsm"

Si può fare diversamente e meglio il tutto ma dovresti essere più dettagliato sul procedimento e con quanti file stai lavorando contemporaneamente e cosa vorresti ottenere

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Cambio nome del FILE

Postdi scanacc » 26/12/16 14:28

Grazie per il fast reply.
L'interpretazione valida che dai alla mia esposizione è la prima.
Ho provato quindi a correggere la macro come mi hai suggerito:
Codice: Seleziona tutto
Dim Wb As Workbook
Set Wb = ActiveWorkbook

   Application.ScreenUpdating = False

   Wb.Activate   

    Sheets("Foglio1").Visible = True
    Sheets("Foglio2").Visible = True
    Sheets("Foglio3").Visible = True
    Sheets("Foglio4").Visible = True
    Sheets("Foglio5").Visible = True


VB.Close SaveChanges:=True
End Sub


... ma mi da errore in Sheets("Foglio1").Visible = True
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: Cambio nome del FILE

Postdi scanacc » 27/12/16 00:37

Comunque provo a spiegarmi ulteriormente.
Ho il FILE PROVA.xlsm che, oltre a tante altre macro, ne ha uno (AUTO_OPEN) che in apertura apre e chiude fogli nascosti.
Eccolo:
Codice: Seleziona tutto
'APRI FOGLI NASCOSTI
   Application.ScreenUpdating = False
   Windows("Nome File PROVA.xlsm").Activate

    Sheets("Foglio1").Visible = True
    Sheets("Foglio2").Visible = True
    Sheets("Foglio3").Visible = True
    Sheets("Foglio4").Visible = True
    Sheets("Foglio5").Visible = True
End Sub

Dato che spesso mi capita di variare il nome di "NOME FILE PROVA.xlsm" in "NOME FILE 1.1.xlsm" o "NOME FILE 1.2.xlsm", vorrei poter ovviare il fatto di dover cambiare sempre il nome inserito nella macro sopramenzionata.
Se non lo faccio infatti compare un errore.
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: Cambio nome del FILE

Postdi Anthony47 » 27/12/16 16:55

Quindi stai parlando di una macro che e' inserita nel file a cui cambi nome, che va in esecuzione all'apertura del file.
Se e' cosi'
1-Visto che all'apertura il file e' "Attivo" non ha la necessita' di attivarlo; quindi l'istruzione che non ti funziona la potresti bellamente cancellare e sei a posto.
2- Oppure, puoi far riferimento al file che contiene la macro usando la proprieta' ThisWorkbook di Application, quindi puoi usare ad esempio
Codice: Seleziona tutto
ThisWorkbook.Activate


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Cambio nome del FILE

Postdi scanacc » 27/12/16 16:59

PROVATA!!! FUNZIONA PERFETTAMENTE (METODO 2)
Grazie!!!
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30


Torna a Applicazioni Office Windows


Topic correlati a "Cambio nome del FILE":


Chi c’è in linea

Visitano il forum: Nessuno e 59 ospiti