Enlever un utilisateur d'un groupe [Résolu]

[e040098k]

Bonjour,

Je cherche a enlever un utilisateur d'un groupe,
J'ai trouver ce post sur le forum http://www.developpez.net/forums/sho...+d%27un+groupe

Mais je ne voit pas ou mettre le

Code :

.Delete

Si quelqu'un peut m'aider ?

[ypicot]

En reprenant l'exemple cité dans ton lien :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AffectUsrGrp() 
    ' necessite librairie DAO 
    Dim Wrk As Workspace 
    Dim Usr As DAO.User 
    Dim Grp As DAO.Group 
    Dim grpAffect As DAO.Group 
    Set Wrk = DBEngine.Workspaces(0)  
    With Wrk 
        Set Usr = .Users("Jacques")  
        Set Grp = .Groups("Mongroupe")  
        Set grpAffect = Usr.CreateGroup("Mongroupe")  
        Usr.Groups.Append grpAffect 
        ' la, on enleve l'utilisateur Jacques du groupe MonGroupe
        Usr.Groups.Delete "MonGroupe"
    End With 
End Sub

Yvan