Auteur Topic: Exel opslaan als PDF in dezelfde map (gelezen 14356 keer)

Wilbert · « **Gepost op:** 03 maart 2025, 12:13:41 »

Hallo,

Ik heb best al wat gezocht naar een oplossing maar kan eigenlijk niet gevonden krijgen wat ik wil.
Voor mij ook net te lang geleden dat ik macro's heb gemaakt dus moet er ook echt even induiken.

Hieronder een bestaande macro van mij maar wil deze wat eenvoudiger omdat ik nu nog naar de goed map moet klikken.
Ik zou graag met druk op de knop dezelfde map willen zien als waar ik het exel bestand al in geopend heb (daar kom ik nu niet in uit)
Ik wil nog wel op de knop "opslaan" willen drukken ter controle.
Is het ook mogelijk dat de nieuwe bestandsnaam dan al zichtbaar is voordat ik op opslaan druk?

Code: [Selecteer]

Sub opslaanpdf()
Application.ScreenUpdating = False
Set dlgSaveFolder = Application.FileDialog(msoFileDialogFolderPicker)
With dlgSaveFolder

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

Alvast bedankt voor jullie reactie

SoftAid · « **Reactie #1 Gepost op:** 03 maart 2025, 16:01:39 »

Hallo Wilbert,

Je kan voor de afdruk-opdracht (ActiveSheet.ExportAsFixedFormat .....) deze code eens proberen te zetten.

Code: [Selecteer]

MsgBox ("Is dit de map waarin je wilt opslaan: " & ThisWorkbook.Path)Dan krijg je de vraag én de map waar naartoe opgeslagen zal worden.

Je kan eventueel ook het hele adres weergeven in de MsgBox:

Code: [Selecteer]

MsgBox ("Is dit de map én de bestandsnaam: " & ThisWorkbook.Path) & "\" & Range("D30").Value & ".pdf"
Is het dit wat je wilt?

SoftAid

Wilbert · « **Reactie #2 Gepost op:** 03 maart 2025, 17:02:44 »

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).

Code: [Selecteer]

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!

SoftAid · « **Reactie #3 Gepost op:** 03 maart 2025, 17:46:57 »

Hallo Wilbert,

je hebt zelf gekozen om een Verkenner-venster te tonen als je de macro uitvoert, door de msoFileDialogFolderPicker - functie te integreren.

Haal deze functie eens weg, en dan kan je kiezen om die Msgbox te plaatsen of niet, maar er zal altijd opgeslagen worden in de map van waaruit "ThisWorkbook.Path..." wordt uitgevoerd.

SoftAid

Wilbert · « **Reactie #4 Gepost op:** 03 maart 2025, 19:04:56 »

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

SoftAid · « **Reactie #5 Gepost op:** 03 maart 2025, 19:27:16 »

Laat me je huidige code nog eens zien.

SoftAid

Wilbert · « **Reactie #6 Gepost op:** 03 maart 2025, 19:32:45 »

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

SoftAid · « **Reactie #7 Gepost op:** 03 maart 2025, 19:59:35 »

Code: [Selecteer]

Sub opslaanpdf()
MsgBox ("Is dit de map waarin je wilt opslaan: " & ThisWorkbook.Path)
MsgBox ("Is dit de map én de bestandsnaam: " & ThisWorkbook.Path) & "\" & Range("D30").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("D30").Value
End Sub

Laat deze even lopen en verwijder eventueel één (of beide) van de msgbox.
De macro brengt je toch steeds in de juiste map.

Dus één regeltje volstaat om aan je verwachtingen te voldoen:

Code: [Selecteer]

Sub Opslaan_pdf_SA()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("D30").Value
End Sub

Mogelijk wens je nog andere controles, laat dan maar horen.

SoftAid

Wilbert · « **Reactie #8 Gepost op:** 04 maart 2025, 08:30:06 »

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

RedHead · « **Reactie #9 Gepost op:** 04 maart 2025, 09:10:58 »

Oei, je probeert op te slaan op Sharepoint? Daar ben ik ooit jaren geleden mee bezig geweest, maar was tóen niet mogelijk.

SoftAid · « **Reactie #10 Gepost op:** 04 maart 2025, 17:41:57 »

Hallo Wilbert,

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

Code: [Selecteer]

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

Wilbert · « **Reactie #11 Gepost op:** 04 maart 2025, 20:24:42 »

Hoi SoftAid,

Bedankt voor je reactie.
Als ik het goed lees zet ik hier de map weer vast en kom ik niet terug in de map waar ik hem open?

Helaas krijgt deze ook een foutmelding: (er bestaat in deze locatie al een bestand met de naam Bezoekverslag Mts. Berkvens - Wijnen - Kampersweg 2025-03-01.xlsm. Wilt u bestand vervangen?
Het bestand stond nog niet in deze map
En bestandsnaam blijft zoals in VBA en veranderd niet mee.

Had gehoopt het op de manier te kunnen zoals de PDF het doet, deze werkt namelijk wel perfect

SoftAid · « **Reactie #12 Gepost op:** 04 maart 2025, 21:08:23 »

Hallo Wilbert,

reageer even over het toepassen van Sharepoint. Daar heb je niet van gesproken in je eerste berichten. toen waren de mappen (zoals ik het verstond) op je PC, niet on-line.

We helpen graag, maar hebben helaas geen glazen bol

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics