droit admin VBA

bonjour

j'ai une macro vba qui créé des fichier TXT et qui copie ces fichiers dans des répertoires ( FSO)
Ayant un compte admin la copie fonctionne très bien
Par contre comment permettre a d'autres utilisateurs qui lance cette macro de pouvoir faire cette copie sans leur attribuer des droits admin ?

est ce possible en VBA ?
peut on lancer la macro avec des droits admin d'un poste utilisateur qui ne possede pas ces droits admin ?

merci

cdt

Bonjour,

Pas à ce que je sache.
S'ils n'ont pas les droits en écriture dans ce répertoire, ils ne pourront pas y sauvegarder/modifier des fichiers...

Bonjour,
https://www.developpez.net/forums/d1...a/#post9927307

mais c'est un beau cadeau pour le pirates!

bonjour

merci de vos retours

je ne suis pas expert

si je renseigne un login,domaine et password dans ta macro test
ce login aura des droits admin pour exécuter le shell qui suit ?
merci

Code:

---

1 2 3 4 5 6 7

Sub TEST() If AdminLogOn("username", "domaine", "password") Then Shell "C:\Windows\System32\calc.exe" Shell "C:\Windows\system32\notepad.exe" Logoff End If End Sub

---

Citation:

---

Envoyé par ricoree78

bonjour

merci de vos retours

je ne suis pas expert

si je renseigne un login,domaine et password dans ta macro test
ce login aura des droits admin pour exécuter le shell qui suit ?
merci
End Sub

---

bonjour,
Oui; c'est une question?

oui je n'étais pas sur d'avoir compris
je vais tester dans mon ihm
merci

cela n'a pas fonctionné

j'essaye d'ouvrir un fichier sur un serveur
j'ai testé avec mon login , domain , password => ok j'ouvre le fichier

test avec un un autre login ,meme domaine , password sur un autre pc j 'ai ce message

accès refusé contacter votre administrateur


voici la commande que je passe

Code:

---

Workbooks.Open Filename:="\\KO1-ZER-ZGC-02\TOUT\_ZAG\Import\rech_resultat2VB.txt"

---

tu as testé comme ça?

Code:

---

1 2 3 4 5 6

Sub TEST() If AdminLogOn("username", "domaine", "password") Then Workbooks.Open Filename:="\\KO1-ZER-ZGC-02\TOUT\_ZAG\Import\rech_resultat2VB.txt" Logoff End If End Sub

---

yes
en jouant sur les variables login , domaine et password bien sur

Code:

---

1 2 3 4 5 6 7 8

Sub TEST() If AdminLogOn("login", "domaine", "password") Then 'Shell "C:\Windows\System32\calc.exe" 'Shell "C:\Windows\system32\notepad.exe" Workbooks.Open Filename:="\\KO1-ZER-ZGC-02\TOUT\_ZAG\Import\rech_resultat2VB.txt" Logoff End If End Sub

---

il y a un endroit particulier ou mettre le code peut être ?
la j'ai tout mis dans un même module

j'ai la version vba pour application 7.1