Riduci a icona File specifico

Hai un problema con Excel?

Nuova discussione

Riduci a icona File specifico
di Kaos (utente non iscritto) data: 25/09/2014 18:54:37
Salve a tutto lo staff ho un problema da risolvere ma non so proprio come fare! Spero che qualcuno mi possa dare una mano, provo a spiegare il problema..

In file excel ho un foglio di none dati, dove tramite un pulsante archivio parte dei dati contenuti in un secondo file di nome Archivio, è possibile ridurre a icona il file di nome archivio, per non vederlo mentre lavora e lasciare a tutto schermo il foglio dati,
praticamente tenere nascosto il foglio archivio mentre lavora.
Spero che sia fattibile
di lepat (utente non iscritto) data: 25/09/2014 19:09:33
allega la macro che stai usando
di Zer0Kelvin data: 25/09/2014 19:13:31
Ciao.
Sì, è possibile, e sarebbe stato meglio se tu avessi inserito almeno il pezzo di codice relativo all'apertura del file, in modo da poter dare una risposta più congrua.
Comunque; uno dei possibili sistemi è questo:
WorkBooks.Open("Nomedelfile") 'apro il file Windows("Nomedelfile").Visible=False ' nascondo il file '... Windows("Nomedelfile").Visible=True ' rendo di nuovo visibile il file
di Kaos (utente non iscritto) data: 25/09/2014 19:53:46
ciao Zer0Kelvin ho provato il codice ma mi da errore
tieni presente che il foglio dati è aperto e tramite la pressione di un tasto viene aperto il file Archivio, i nomi Dati e Archivio sono i nomi riportati sopra la barra dopo la scritta Microsoft Excel,
Il foglio archivio viene aperto con il seguente codice allegato dove (FName) corrisponde al percorso e al nome del file da aprire.
Set wbdest = Workbooks.Open(FName)
di Zer0Kelvin data: 25/09/2014 21:08:54
Mi dà errore????
Ma pensate che da questa parte ci sia gente in possesso di un Palantir, o magari dello specchio di Galadriel
Che errore ti dà (codice e descrizione) ed in che punto?
Che cosa hai scritto al posto di "Nomedelfile"?
E, se hai inserito FName al posto di "Nomedelfile", cosa contiene FNAme?

di Zer0Kelvin data: 25/09/2014 21:16:33
Comunque, puoi scrivere così

Set wbdest = Workbooks.Open(FName)
Windows(wbdest.Name).Visible=False ' nascondo il file
'...
Windows(wbdest.Name).Visible=True ' rendo di nuovo visibile il file

di Kaos (utente non iscritto) data: 25/09/2014 21:57:29
Scusa Zer0Kelvin ho notato che l'errore era dovuto al fatto che alla fine del nome non inserivo l'estenzione del file, adesso funziona tutto!
di Kaos (utente non iscritto) data: 25/09/2014 22:26:30
Scusate ma mi ero dimenticato di spuntare discussione risolta

Vuoi Approfondire?