Discussion :

[ricoree78]

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

[parmi]

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...

[Invité]

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

mais c'est un beau cadeau pour le pirates!

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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?

[ricoree78]

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

[ricoree78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

tu as testé comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ricoree78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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