Hallo Wilbert,

Ik heb (gebruik) geen SharePoint, en kan dus enkel helpen door op te zoeken, met volgende macro als resultaat:

Sub SaveAsXLSM2SharePoint()
    Dim wb As Workbook
    Dim filePath As String
    Dim sharePointPath As String
   
    sharePointPath = "https://terheerdt - my.sharepoint.com/personal/w_vandenheuvel_thvb_nlOpfok/ZZ_opfokdocumenten\"

     filePath = "Bezoekersverslag Mts. Berkvens - Wijnen - Kampersweg 2025-03-01.xlsm"
     Set wb = ThisWorkbook
     wb.SaveAs Filename:=filePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
 
End Sub
Een controle MsgBox kunnen we nog steeds toevoegen.

Probeer dit eerst even.

SoftAid              

Hoi SoftAid,

Hartelijk voor deze VBA!!
Met de PDF is me deze nu gelukt en werkt het.

Ik zou deze graag ook nog nog in "xlsm" uitvoering willen.
Ik heb daarvoor dezelfde formule gebruikt maar krijg dan een foutmelding (zie bijlage)

Gebruikte VBA:
Sub opslaanexcel()
MsgBox ("Is dit de map én de bestandsnaam: " & ThisWorkbook.Path) & "\" & Range("D30").Value & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Range("D30").Value & ".xlsm"
End Sub

Sub opslaanpdf()
Application.ScreenUpdating = False
With dlgSaveFolder
End With
Set dlgSaveFolder = Nothing
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("D30").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
CancelFolderSelection:
Application.ScreenUpdating = True
End Sub

Hallo SoftAid,

Het bestand slaat nu in goede map alleen de stap met de MsgBox lukt me (nog) niet, die blijft foutmeldingen geven.
Ik zou deze er toch graag als controle tussen willen hebben.

Alvast bedankt

Hoi SofAid,

Bedankt voor je reactie
Ik heb het tussen gezet maar werkt helaas nog niet.
De map waar het PDF bestand in opgeslagen moet worden is altijd een andere map maar is wel altijd dezelfde map als waar het exel bestand op dat moment in staat. Ik kan hier dan geen vast adres neerzetten.

Hieronder nog even de VBA (ik zag dat er 2 regels niet tussen stonden).

Sub opslaanpdf()
Application.ScreenUpdating = False
Set dlgSaveFolder = Application.FileDialog(msoFileDialogFolderPicker)
With dlgSaveFolder
.Title = "Selecteer een Folder"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo CancelFolderSelection
sFolderPathForSave = .SelectedItems(1)
End With
Set dlgSaveFolder = Nothing
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("D30").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
CancelFolderSelection:
Application.ScreenUpdating = True
End Sub
Als ik nu de knop "opslaan" indruk kom ik uit bij: C:\Users\W.vandenHeuvel\OneDrive - THVB\Documenten
Het exel bestand waarvan ik uit opsla staat in: C:\Users\W.vandenHeuvel\OneDrive - THVB\AA Opfok\ZZ opfokdocumenten (is altijd verschillend)
Ik zou in de laatste map zou ik dan ook het PDF willen opslaan, ik zou nog wel graag de controle stap willen blijven zien dat ik de bestandsnaam al zie en alleen nog op "OK" hoef te drukken.

Alvast bedankt!