macro salva in una cartella

Ciao a tutti,

Nel workbook allegato c'è una macro per salvare il foglio in una determinata cartella con il nome delle celle senza formule e vari colori.

Questa macro è un pò vecchia e dal 2001 ha sempre funzionato.

All'inizio salvava in formato *.xls poi 5/6 anni fa in ufficio hanno cambiato Office e hanno installato la versione 2007 di Excel.

Per correggere (cercando un pò di quà e là in rete) ho modificato la macro e aggiungendo la scelta del formato:




Con questa modifica con Excel 2007 e versioni inferiori ha sempre funzionato.

Ora hanno installato la versione di Office 2016.

E' sorto un problema.

Dopo aver cliccato nel foglio il pulsante "SALVA FOGLIO" si visualizza il foglio salvato (con estensione *.xlsx) e fin qui va bene.

Questo foglio che si è aperto ha un problema, i vari pulsanti della barra dei strumenti risultano bloccati, se ci clicco sopra non sono attivi!

Se invece questo foglio lo apro dalla cartella in cui viene salvato, tutto funziona.

Spero di essermi spiegato.

Per provare la macro creare una cartella nel desktop e nominarla "fogli"

Un saluto e grazie in anticipo.
john

Buona sera, john_cash;
quello che mi stupisce non è che il File abbia problemi su Excel 2016 ma che non ne avesse su Excel 2007.

Non conosco Excel 2007 ma, visto che il File contiene  almeno un Codice VBA, credo che dalla Release 2007 e superiori l'estensione non debba essere .xlsx ma .xlsm.

Voglio dire con estensione .xls poteva funzionare correttamente su Excel 2000 - 2003 ma già su Excel 2007 l'estensione non doveva essere .xlsx ma .xlsm





A disposizione.

Buon fine settimana.

Giuseppe

Il file.

Ciao giuseppe.
La macro salva il foglio il formato xlsx che è senza macro.
john

Per me funziona tutto anche i vari pulsanti della barra dei strumenti, certo sarebbe da ripulire le varie parti dedicate a XLS.
Ho modificato alcune righe e il Do..Loop While Dir(sNomeFile)
Domanda il Do..Loop serve per contare i vari files in FOGLI\PROVA e dargli un numero. Giusto?

Ciao raffaele.
Qui a casa non ho la possibilità di provare, non ho excel 2016.
Posso provare solo lunedì.
Il do loop aggiunge ogni volta al file salvato un numero 1 - 2 - 3 ecc.. per non sovrascrivere i fogli salvati.
Intanto grazie in anticipo.
john

Buona sera, John_cash;
ho provato a salvare il File con il Codice VBA "CopiaESalvaInPathX", ho salvato tre File con Excel 2013, e in nessuno di questi ho riscontrato problemi.

Non saprei che dirti.



Giuseppe

Infatti fino a excel 2013 funziona, con excel 2016 mi dà quel strano problema di "pulsanti bloccati".
john

Ciao in rete ho trovato una macro simile alla mia che salva in formato *.xls qui:
http://mikevba.altervista.org/macro/mikevba130.php
anche con questa macro al foglio salvato al primo colpo i pulsanti della barra dei strumenti sono bloccati, chiudendo e riaprendo il fogli i pulsanti si riattivano.
Non so se è colpa del mio excel.
Allego il nuovo file.
Perchè funzioni la nuova macro inserire il nuovo foglio in una cartella e in questa inserire una cartella nominata fogli.
john

Scusate qualcuno ha provato l'ultimo file che inserito nel post precedente e ha riscontrato gli stessi problemi che ho descritto?
john

A me succede questo:

clicco nel pulsante SALVA del foglio postato in post #9
si crea il nuovo file
chiudo il file principale
apro la cartella dove è il nuovo file creato
apro il nuovo file
tutti i pulsanti della barra degli strumenti non sono attivi!!!
chiudo questo file
lo riapro e i pulsanti sono attivi!
sempre al secondo colpo!!!

john

Non so cosa dirTi? Uso 2013 e non ho problemi (avessi 2016 potrei provare...)

Ciao raffaele io sto provando qui a casa con excel 2007, a te i pulsanti della barra sono attivi subito o danno problemi?
Ho visto ora se clicco il tasto Window i pulsanti si attivano subito.

Scusami, la mia firma dice 2007, dovrei provare su altro PC)
Solo da un mese uso 2013. Non ho cambiato la firma, perchè non conosco ancora "tutte" le nuove formule per 2013. Comunque il Tuo codice funziona (con 2013) e ... se hai problemi con Excel (2016 non sò cosa dire?).
Ps. Non sono un esperto di VBA, sò solo che deve funzionare sempre, tranne alcuni comandi per versioni differenti (2003)
Lasciami il tempo per verificare i Tuoi codici
EDIT
Un codice molto strambo (ammetto che a quei tempi ci fosse ancora il 2003)
Ci sono diverse cose che non capisco, alla riga >>>Set wbDest = Application.Workbooks.Add
Aggiungi un nuovo files e subito dopo le variabili "sComm(1)", riferite al files vecchio???
Domanda1, hai provato a trasferire il tutto su un files nuovo (almeno su excel 2007)
Domanda2 Usando 2016, se apri il file (xls), avvii il registratore, copy il foglio, apri un nuovo files INCOLLI e lo salvi come .xlsx. Funziona Si/No?EDIT