[Resolvido]Erro no nome do Banco e caminho do backup

Boa noite aonde estou errando neste código
Gostaria de pegar o nome do Banco automático caso o usuário modificada o nome do Banco não da erro ,não deixando de criar o backup

Código:

Dim CopiaSegura As Object
Dim Caminho As String
Dim strnomeBanco as string


StrnomeBanco=Application.currentproject.name
Caminho = currentproject.path &"\backup \"
   Set CopiaSegura =CreateObject("Scripting.FileSystemObject")
   CopiaSegura.CopyFile CurrentProject.Path & "\strnomeBanco", Caminho & Format(Now, "_mmyyyy") & "Modificado19_050.accdb"

Olá Marcelino,

Onde tem:

Código:

CopiaSegura.CopyFile CurrentProject.Path & "\strnomeBanco", Caminho & Format(Now, "_mmyyyy") & "Modificado19_050.accdb"

altere por:

Código:

CopiaSegura.CopyFile CurrentProject.Path & "\" & strnomeBanco, Caminho & Format(Now(), "_mmyyyy") & "Modificado19_050.accdb"

Abraço

Boa noite Teixeira não ficou bom



Qual esta diferença de acreditar depois da barra " & para que eu possa não errar em outro código


Ficou ótimo obrigado
Deus abençoa
Bom fim de semana

Olá Marcelo,

O erro estava no caminho, pois:

strnomeBanco é uma variável (nome do ficheiro e extensão)
CurrentProject.Path é um comando do VBA que apresenta o caminho o projeto (executado)
\ é a barra que separa no caminho o nome do arquivo.

& serve para concatenar (juntar)

Por lapso a barra \ e a variavel strnomeBanco estava tudo numa string, designando o caminho origem (erradamente).

Não sei se fui claro, mas foi o meu melhor  

Abraço

Boa tarde Teixeira mais uma vez muito obrigado mesmo
Abraço