Macro bestand opslaan op Sharepoint locatie

[Vieri]

Beste forummers,

Via de zoekfunctie kreeg ik maar een handjevol resultaten (waar ook niet altijd een antwoord is geplaatst). Ik zou graag een macro willen maken die het actieve Excel bestand opslaat op een SharePoint locatie. Ik kan het zelf niet testen want ik heb thuis geen SharePoint. Ik was al wel zover om een bepaalde save as locatie in te stellen die ik zelf wil voor een Excel werkmap met ingeschakelde macro's:

Sub Opslaan()

Dim InitialName As String
Dim sFileSaveName As Variant
InitialName = "documentnaam"
sFileSaveName = Application.GetSaveAsFilename(InitialFileName:="C:\Users\Public\Documents\" & InitialName, FileFilter:="Excel Files (*.xlsm), *.xlsm")

If sFileSaveName <> False Then
    ActiveWorkbook.SaveAs sFileSaveName
End If

End Sub

Nu is de SharePoint locatie https://mysharepoint.com/sites/instructions/

Het is volgens mij wat kort door de bocht om de weblocatie op de plaats hierboven te zetten. Ook heb ik gevonden dat je de https:// moet vervangen en dat het er zo uit moet komen te zien:
\\mysharepoint.com\sites\instructions\

Iemand hier ervaring mee?

Bedankt alvast!

 

[Vieri]

Eh, ik heb t onverwachts toch nog kunnen laten testen... Met bovenstaande macro kan je zowel via https://sharepointlocatie.com/jouwbedrijf/folder/ als \\sharepointlocatie.com\jouwbedrijf\folder\ gebruiken achter InitialFileName

Misschien dat iemand er iets aan heeft in de toekomst

 

[HSV]

Mooi dat je het antwoord hier toch nog even plaatst en met anderen wilt delen @Vieri. :thumb:

 

[Vieri]

Ik word hier altijd goed geholpen door ondere andere jou en Ronancio. Kan ik ook eens wat terug doen (ondanks mijn beperkte VBA kennis)