Variabel pad om in macro

[Lutkeher]

Goedemorgen,

Ik heb een makro in een excel bestand die een ander excel bestand moet openen om vervolgens data over te zetten.
Echter staat hier het pad naar het bestand op de PC waar makro gemaakt is. Maar in de praktijk is het zo dat deze bestanden steeds op een ander pc gebruikt gaan worden.
Hoe kan ik nu het pad zodanig aanpassen dat dit lukt?

Deze makro:

Audry Macro
'
' Sneltoets: Ctrl+f
'
ChDir "C:\Users\Herman\Documents\Audrey\Meterstanden Viva terra"
Workbooks.Open Filename:= _
"C:\Users\Herman\Documents\Audrey\Meterstanden Viva terra\Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"
Windows("Meterstanden 2021-2022B.xlsm").Activate
Range("B23").Select
Sheets("Huurders").Select
Range("A1:J43").Select
Selection.Copy
Windows("Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"). _
Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Met dank.
Vriendelijke groet,

Herman

 

[edmoor]

Wijzig: C:\Users\Herman\Documents
In: Environ("Userprofile")\Documents

En vergeet dat ChDir.
Daarnaast kan je code een stuk beter.
Ook had je deze hier in codetags kunnen plaatsen.

 

[Lutkeher]

Bedankt voor je antwoord maar sorry, in welke regel moet ik dat aanpassen?

Met groet

 

[edmoor]

Je kan toch zien waar C:\Users\Herman\Documents staat?

Workbooks.Open Filename:= _
Environ("Userprofile") & "\Documents\Audrey\Meterstanden Viva terra\Viva Terra - {Opname meterstanden verhuur_'21, '22 '23}.xlsx"

 

[Lutkeher]

Bedankt, deze werkt perfect en het is duidelijk.

Met groet

 

[edmoor]

Ok dan :thumb:
Mag je je bericht als opgelost markeren.