Anwendung öffnen mit Environ("Username")
27.03.2020 18:21:50
elRamin
ich arbeite an einem Netzwerkrechner und habe eine freigegebene Exceldatei auf die mehrere Mitarbeiter zugreifen und Einträge vornehmen.
Nun habe ich eine Schaltfläche erstellt die ein externes Programm öffnet.
Das funktioniert aber nur mit mein User, nun möchte ich das Programm aber über die Schaltfläche auch von anderen User ausführen lassen ohne das ich die User ID im Makro hinterlegen will.
So funktioniert es ja schon mal:
Sub Statistik_öffnen()
Dim sha
Set sha = CreateObject("Shell.application")
'sha.Open "C:\Users\i6wsmp\Desktop\Statistik Erfassung 5.6.lnk"
End Sub
Jetzt dachte ich mir ich versuche es dann mal so:
Sub Statistik_öffnen()
Dim sha
Dim pfad
UID = Environ("Username")
Set sha = CreateObject("Shell.application")
pfad = Environ("Username") \ "Desktop\Statistik Erfassung 5.6.lnk"
sha.Open pfad
End Sub
Und noch einige andere Varianten probiert aber bis jetzt hat nichts wirklich geklappt.
gibt es da eine Lösung oder geht das gar nicht.
Ich möchte keine Msg Box wo der User steht öffnen oder den User in eine Excel Datei in eine Zelle schreiben lassen.
Danke für Eure Hilfe
Grüße elRamin