Exportar Relatório PDF para nuvem automaticamente

Bom dia!

Eu pesquisei na rede e não obtive uma solução para minha dúvida, portanto, gostaria de saber se é possível eu criar um botão que, ao clicar nele, automaticamente ele gera o PDF do Relatório e o envia para a Nuvem (OneDrive, SharePoint ou Teams Equipes).

Para salvar localmente, eu uso este modelo:

Código:

Private Sub BtnPDFSRet_Click()
    On Error Resume Next
    
    Dim StrLocal As String
    Dim StrArquivo As String
    
    'Nome do Protocolo a ser salvo
    StrArquivo = "NF-es EMITIDAS - Sem Retorno - " & _
        Format(Now(), "ddmmyyyyhhnnss") & ".pdf"
    
    'Local onde o Protocolo será salvo
    StrLocal = "\\192.168.0.251\Contabilidade\BANCO DE DADOS\Relatórios\Sem Retorno\" & StrArquivo
    
    'Abre o Relatório Ocultado
    DoCmd.OpenReport "RelDFsEmitSRet", acViewPreview, , , acHidden
    
    'Gera o arquivo PDF do Relatório previamente Aberto
    DoCmd.OutputTo acOutputReport, "RelDFsEmitSRet", acFormatPDF, StrLocal, True, , , acExportQualityPrint
    
    'Fecha o Relatório
    DoCmd.Close acReport, "RelDFsEmitSRet"
    
    'Mensagem final ao Salvar o protocolo
    MsgBox ("Relatório gerado com sucesso!" & _
    vbCrLf & StrLocal), vbInformation, "Gerar Relatório em PDF"
End Sub

Mas para a núvem, eu não sei se é possível

Boas....

Tente adaptar ao seu sistema o código abaixo...

Private Sub BtnPDFSRet_Click()
   On Error Resume Next
   
   Dim StrLocal As String
   Dim StrArquivo As String
   
   'Nome do Protocolo a ser salvo
   StrArquivo = "NF-es EMITIDAS - Sem Retorno - " & _
       Format(Now(), "ddmmyyyyhhnnss") & ".pdf"
   
   'Local onde o Protocolo será salvo
   StrLocal = "\\192.168.0.251\Contabilidade\BANCO DE DADOS\Relatórios\Sem Retorno\" & StrArquivo
   
   'Abre o Relatório Ocultado
   DoCmd.OpenReport "RelDFsEmitSRet", acViewPreview, , , acHidden
   
   'Gera o arquivo PDF do Relatório previamente Aberto
   DoCmd.OutputTo acOutputReport, "RelDFsEmitSRet", acFormatPDF, StrLocal, True, , , acExportQualityPrint
   
   'Fecha o Relatório
   DoCmd.Close acReport, "RelDFsEmitSRet"

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim objFSO As New FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Test File.txt", "C:\Users\" & Environ("UserName") & "\OneDrive - Company", True
Set objFSO = Nothing
'Você precisará adicionar uma referência ao Microsoft Scripting Runtime em seu projeto para permitir que a variável no meu exemplo seja definida usando a vinculação antecipada.objFSO
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
   'Mensagem final ao Salvar o protocolo
   MsgBox ("Relatório gerado com sucesso!" & _
   vbCrLf & StrLocal), vbInformation, "Gerar Relatório em PDF"
End Sub