Locatie opslaan en openen bestanden

Goedemiddag,

Ik heb onderstaand een stuk uit mijn script toegevoegd. Momenteel werk ik vanuit een USB stick en moet ik iedere keer de letter in het script wijzigen als ik het script wil laten draaien. Eigenlijk wil ik nu vanuit one drive werken en ongeacht de locatie of computer wil ik het script kunnen laten draaien.

Het moet dus zoiets worden: C:\Users\Planning1\OneDrive, Echter moet het een locatie ook vanuit een andere locatie (andere computer) ook op de juiste plek opgeslagen worden en/of geopend. Dit moet iets zijn met %Userprofile&. Ik kom er alleen niet achter hoe ik dit voor elkaar krijg. Als dit niet lukt is een andere oplossing ook goed waarbij ik niet steeds het schijfstation hoef te wijzigen in het script als ik van computer wissel.

'Data wordt gedownload
ChDir "E:\ALLC\Customer report\Download"
Workbooks.Open Filename:="E:\ALLC\Customer report\Download\data.xlsx"

'Data uit gedownloade bestand halen
Cells.Select
Selection.Copy
Windows("Customer report.xlsm").Activate

'Data kopieeren naar nieuw tabblad
Sheets("Download").Select
Range("A1").Select
ActiveSheet.Paste

Cells.Select
Selection.Copy
Sheets("Werkblad").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Groetjes,

Michard

Ik denk dat je dit bedoelt:

En hoe zet ik die dan exact in het script?

Moet ik nog wat definiëren?

Zoiets:

Bedankt, dit is wat ik zocht!!