Opgelost Uitvoer macro samenstellen

[Co SCP]

Ik ben op zoek naar een Macro die het volgende kan doen:
Een geopend Excel werkblad opslaan als PDF bestand op 2 variabele locaties (dus 2 verschillende paden in Microsoft Teams) welke aangegeven staan in cellen van het actieve werkblad met een nieuwe variabele Naam, die ook staat in een cel van hetzelfde werkblad.

 

[edmoor]

Welkom bij Helpmij.
Het is hier gebruikelijk om bij een Excel vraag ook een voorbeeld document te plaatsen.

 

[cow18]

tja, welkom CO SCP, op zich zelf niet zo moeilijk, als je een voorbeeldbestandje meestuurt.
Edit : edmoor

 

[Co SCP]

Als nog op verzoek het betreffende bestand toegevoegd

 

[JEC.]

Probeer dit eens, niet kunnen testen. Verwijder samengevoegde cellen van J3

Sub jec()
 Dim fn, fn2
 fn = "https://hsharepoint.com/sites/Repetitie/Shared%20Documents/General/Repetitie%20ACTUEEL/2024/" & Replace([J3]," ","%20")
 fn2 = Replace(fn, "ACTUEEL/2024/", "ACTUEEL/2024%20Repetitie/")
 
 With Sheets(1)
   .ExportAsFixedFormat 0, fn
   .ExportAsFixedFormat 0, fn2
 End With
End Sub