Opgelost Excel bestand opslaan in specifieke map o.b.v. celwaarde

[Burma]

Goedendag allemaal,

Ik loop vast bij het aanpassen van een formulering in VBA. Ik gebruik dit bestand om facturen te maken en wil ik eigenlijk i.p.v. handmatig "2024" naar bijv. "2025" aanpassen, wil ik een cel invoegen, waarbij het jaar al reeds staat genoteerd.

Momenteel gebruik ik het volgende en "2024" zou dan bijv. de waarde van cel A2 moeten toepassen;

ActiveSheet.SaveAs "G:\Algemeen\financieel\2024\facturen\copy\" & _
Range("G4") & " " & _
Range("K4") & " " & _
Range("F14") & ".xlsm", FileFormat:=52

PDFnaam = "G:\Algemeen\financieel\2024\facturen\original\" & _
Range("G4") & " " & _
Range("K4") & " " & _
Range("F14") & ".pdf"

is dit mogelijk of moet ik dan helemaal anders te werk gaan?

mvg en alvast bedankt voor de reactie!

 

[Haije]

Zoiets

Padnaam = "G:\Algemeen\financieel\"& range("A2")&\facturen\copy\"
ActiveSheet.SaveAs padnaam & _

 

[jkpieterse]

Sure.

Dim pad As String
'Via de huidige datum:
'pad = "G:\Algemeen\financieel\" & Format(Date,"yyyy") & "\facturen"
'Of, uit een cel:
pad = "G:\Algemeen\financieel\" & Range("A2").Text & "\facturen"
ActiveSheet.SaveAs pad & "\copy\" & _
Range("G4") & " " & _
Range("K4") & " " & _
Range("F14") & ".xlsm", FileFormat:=52

PDFnaam = pad & "\original\" & _
Range("G4") & " " & _
Range("K4") & " " & _
Range("F14") & ".pdf"

 

[Burma]

Bedankt beide! Het werkt