Visual Basic vba erro ao salvar em diretótio

[Ismael Souza]

Bom dia pessoal !

 No código abaixo, preciso salvar uma planilha na pasta com a seguinte sequencia :

 2020 / mês / semana / dia 

 

 

 

Sub Atualiza()

Dim DATA, Dia, Mes, Ano As String
    
    DATA = Date
    Dia = Left(DATA, 2)
    Mes = Right(Left(DATA, 5), 2)
    Ano = Right(DATA, 4)
    
Set fso = CreateObject("Scripting.FileSystemObject")
    

Dim rootPath As Variant, path2 As Variant
Dim tgtValue As Variant
Dim MyFile As String
  rootPath = "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\"
  path2 = "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes & "\" & tgtValue & "\" & Dia & ""

  tgtValue = WorksheetFunction.IsoWeekNum(Date)

  On Error Resume Next

   If Dir("rootPath") = "" Then
    MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\"
    
     If Dir("rootPath & Ano") = "" Then
      MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes
     
       If Dir("rootPath & Ano & Mes") = "" Then
        MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes & "\" & tgtValue
    
         If Dir("rootPath & Ano & Mes & tgtValue") = "" Then
          MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes & "\" & tgtValue & "\" & Dia
        
             
    
End If
  End If
   End If
    End If
    
      
         dirCopia = path2
         nomeCopia = ActiveWorkbook.Name
         
 
ActiveWorkbook.SaveAs Filename:= _
dirCopia + nomeCopia, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
 

End Sub

 

Mas quando tento salvar o arquivo, esta salvando na semana, não está entrando na pasta do dia e salvando lá...

O que estou fazendo de errado?

 

[Basole]

@Ismael Souza voce nao pode "çolocar" variaveis entre aspas. 

Tente alterar isso e testar novamente 

 

*Altere esta linha tambem: 

If Dir(rootPath & "\" & Ano) = "" Then