Enregistrer copie du classeur actuel sur sharepoint à partir d'Excel

Bonjour

Possible de me dire comment écrire le code vba pour enregistrer une copie du classeur actif dans sharepoint avec la date et garder le classeur actif ouvert. Un genre d'archivage quoi!

J'ai ce travail en cours que je vois sur internet qui ne semble pas être final.

Merci pour toute aide et bonne journée!

Sub SharePoint_Save()

    Dim acctCode As String
    Dim mainpath As String
    Dim filePath As String
    Dim savefile As String
    Dim thiswbpath As String
    Dim wb As Variant

    ThisWorkbook.Save
    thiswbpath = ThisWorkbook.FullName

    acctCode= v_Welcome.Range("D5")
    mainpath = "https://companyname.sharepoint.com/sites/GROUPA/Shared Documents/General/Auto Save/Full Template/"

    savefile = mainpath & acctCode & " FullTemplate auto-saved"

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileName:=savefile, FileFormat:=52
    Application.DisplayAlerts = True

    Set wb = Workbooks.Open(thiswbpath)

    ThisWorkbook.Close False

End Sub

Bonjour lyttonjr

Il faut utiliser "SaveCopyAs"

ActiveWorkbook.SaveCopyAs FileName:=savefile

En revanche sur un SharePoint, pas certain que ça fonctionne ainsi

A+

Bonjour

En effet cela ne fonctionne pas sur sharepoint!

Merci pour la proposition!