"Dynamische" snelkoppeling op bureaublad

[JanJongste]

Geachte deskundigen,

Het lukt mij niet om een code te schrijven die, geïnstalleerd in een een sub Document_Open() of Workbook_Open(), een snelkoppeling maakt op het bureaublad (indien niet geïnstalleerd) en afhankelijk van de actuele maand het pad erheen aanpast.

Wie weet hoe dat te maken is?

 

[HSV]

Hier eentje die nog niet dynamisch is.
Als je er een beter uitleg bijschrijft misschien kan het dat wel worden.

Sub hsv()
With CreateObject("WScript.Shell").CreateShortcut(Environ("UserProfile") & "\Desktop\Shortcut_Folder.lnk")
    .TargetPath = "C:\users\hsv\documents\Map1"
    .WorkingDirectory = "C:"
    .WindowStyle = 1
    .Save
End With
End Sub

 

[JanJongste]

zeer veel dank voor de snelle reactie HSV.

Ik had al een niet dynamische gevonden (overigens excuses voor het niet vermelden ervan) in de post http://www.helpmij.nl/forum/showthread.php/848753-Via-een-Macro-snelkoppeling-maken-en-of-verwijderen

Sub M_wijzig_bestaande_snelkoppeling()
    With CreateObject("WScript.Shell")
        With .CreateShortcut(.specialfolders(4) & "\overzicht.lnk")
            .targetpath = "G:\OF\0_snb_test.xls"
            .Save
        End With
    End With
End Sub

Mijn wens is dat met het openen van een bestand (Excel of Word) de snelkoppeling op het bureaublad naar het pad op de C-schijf (C:\opslag\2016\09) zich automatisch weet aan te passen aan de veranderende tijd. Dus als het oktober wordt zou de snelkoppeling naar de opslag moeten worden C:\opslag\2016\10.

 

[HSV]

Als het ook nog naar de map 2016 moet verwijzen zet je dat om naar 'year(now)'.

 .TargetPath = "C:\users\hsv\documents\" & month(now) & "\"

 

[JanJongste]

Mag ik u nog een stukje bedanken voor de functionele code! Het werkt. Superforum met deskundige leden.

 

[HSV]

Graag gedaan Jan.
Bedankt voor je respons.

 

[snb]

.targetpath = "C:\opslag\" & Format(date,"yyyy\\mm\\") & "bestand.xlsx"