Visualizzazione nome file in esplora risorse

Question

Ho creato con VBA un codice che cliccando un bottone nel foglio elettronico mi crea un file di backup che posso successivamente riprendere e modificare più e più volte.

Il codice funziona benissimo, solo che quest'anno a partire dal 06/08/2014 la visualizzazione in esplora risorse ha un salto, come se davanti al nome del file vi fosse uno spazio.

In realtà se si cerca di eliminare manualmente detto spazio in Esplora Risorse, esce una finestra "Rinomina file"  "I nomi dei file di origine e di destinazione coincidono"

Non credo che il problema sia dato dal codice, che trascrivo qui sotto

Sub Backup1()

If Day(ActiveWorkbook.Worksheets("Base").Range("E7")) < 10 Then

strGiorno = "0" & Day(ActiveWorkbook.Worksheets("Base").Range("E7"))

Else

strGiorno = Day(ActiveWorkbook.Worksheets("Base").Range("E7"))

End If

If Month(ActiveWorkbook.Worksheets("Base").Range("E7")) < 10 Then

strMese = "0" & Month(ActiveWorkbook.Worksheets("Base").Range("E7"))

Else

strMese = Month(ActiveWorkbook.Worksheets("Base").Range("E7"))

End If

strAnno = Right(Year(ActiveWorkbook.Worksheets("Base").Range("E7")), 2)

strData = strAnno & strMese & strGiorno

strNomeFileBackup = " bk " & strData & " " & LCase(ActiveWorkbook.Worksheets("Base").Range("G16")) & " " & LCase(ActiveWorkbook.Worksheets("Base").Range("G19")) & ".xlsm"

ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\backup" & strNomeFileBackup

ActiveWorkbook.Worksheets("Base").Activate

End Sub

In Esplora Risorse i vari files vengono visualizzati con uno spazio, come si può vedere dai vari files in excel, dal 06/08/2014 sono i file fino alla spunta, i files seguenti sono i più vecchi fino al 06/08/2014, ove si presenta con questa strana visualizzazione.

Avete suggerimenti in merito, sul perché sia avvenuto ciò e su come si possa ovviare al problema?

Grazie l'aiuto

Answer 1

Ciao KOFMF,

Avete suggerimenti in merito, sul perché sia avvenuto ciò e su come si possa ovviare al problema?

Prova a sostituire

strNomeFileBackup = " bk " & strData & " " &

con

    strNomeFileBackup = "bk " & strData & " " & 

===

Regards,

Norman