Excel SharePoint

Bonjour le forum,

J'ai développé une macro qui me permet de générer un PPT sur Excel et je voulais savoir s'il était possible de l'enregistrer directement sur un SharePoint ?

Sub PPT()
    Dim PptApp As PowerPoint.Application
    Dim PptDoc As PowerPoint.Presentation

    Set PptApp = CreateObject("Powerpoint.Application")
    Set PptDoc = PptApp.Presentations.Add

    With PptDoc

    End With

    PptDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & datedujour & ".pptx", FileFormat:=ppSaveAsDefault

Voilà au lieu d'avoir ce filename, j'aimerais mettre directement le lien d'un sharepoint, savez si c'est possible ?