Excel Macro VBA com problema para salvar arquivo no Sharepoint

[vigue]

Pessoal, boa tarde a todos.

 

Tenho uma macro para fazer uma cópia da planilha para o Sharepoint que estava funcionando normalmente. Hoje ao rodar esta macro tenho recebido "Erro em tempo de execução '1004' - o nome do arquivo ou caminho não existe.

 

Eu já chequei o caminho para salvar e está correto, afinal de contas até ontem esta macro estava rodando normalmente. Segue a macro adaptada:

 

Sub SalvaCopia()

Dim ToPath As String
ToPath = "\\endereco.sharepoint.com\sites\teste\Documentos Compartilhados\pasta backup"
Nome_backup = "planilha backup.xlsm"

ActiveWorkbook.SaveCopyAs Filename:= _
ToPath & "\Backups da conferencia diaria\" & Nome_backup

End Sub

 

O erro que mencionei no início acontece quando ela chega no Activeworkbook.savecopyas.

 

Alguém consegue me ajudar?

 

Abraços!

[Lucas Vinicius N. Aguiar]

Cara, te contar um drama, passei pelo mesmo problema. Solução é que você pode estar passando do limite de 256 caracteres aceitos caminho para o SharePoint. Todo caminho, somando Path e Nome_backup provavelmente excedeu, confere o número e vai reduzindo o nome e etc. Obs.: Espaço vale por 3 caracteres, usa underline no lugar! Abraços!  

[Basole]

@vigue se o problema for com o caminho longo (com + de 255 caracteres), tente usar a função que encurta o path:

 

 

Sub SalvaCopia()

Dim ToPath As String
ToPath = "\\endereco.sharepoint.com\sites\teste\Documentos Compartilhados\pasta backup"
Nome_backup = "planilha backup.xlsm"

ActiveWorkbook.SaveCopyAs Filename:= _
GetShortPath(ToPath & "\Backups da conferencia diaria\" & Nome_backup)

End Sub

Public Function GetShortPath(path As String) As String
' função que encurta o caminho(path), abaixo limite 256 caract.
  Dim fso As Object
  If fso Is Nothing Then
  Set fso = VBA.CreateObject("Scripting.FileSystemObject")
  End If
 
  If fso.FileExists(path) Then
      GetShortPath = fso.GetFile(path).ShortPath
      Exit Function
  End If
 
  If fso.FolderExists(path) Then
      GetShortPath = fso.GetFolder(path).ShortPath
      Exit Function
  End If
  
End Function

 

[Dery_Santos]

Boa tarde, 

 

Teria algo semelhante a esse mas ao invés de fazer um backup ele atualizar a planilha do sherepoint com os dados de outra planilha local?

Ex. tenho no sherpoint o arquivo Registro RA.xlsx , e tenho o arquivo RA.xlsm , gostaria de que ao clicar no arquivo RA.xlsm ele atualizasse o arquivo que esta no sherepoint ou no ondrive .

[Wendell Menezes]

É possível sim, pode postar os dois arquivos aqui para adaptarmos a macro pra você?

[Dery_Santos]

Registro RA.zip

Antes de tudo quero agradecer pela ajuda, anexei os arquivos , então a logia seria , no arquivo Ra teste RA.xlsm tem a aba 04. registro RA , gostaria que ao clicar no botão Registrar RA ele salvasse os dados no arquivo Registro RA.xlsx , ele ja faz isso só quem o arquivo estando em pasta de rede ou pasta local , gostaria de que isso fosse feito com esse arquivo no ondrive sherepoint.

 

Novamente agradeço a ajuda