Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Créer une macro dans Excel 2003 pour interroger AD

Créer une macro dans Excel 2003 pour interroger AD

7 réponses
Avatar
François Racine
Je souhaiterais créer une macro dans Excel pour extraire les membres d'un
groupe de Active Directory. J'ai regardé dans les données externes et je ne
vois pas comment faire. Un peu d'aide serait apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message de
news:
Je souhaiterais créer une macro dans Excel pour extraire les membres d'un
groupe de Active Directory. J'ai regardé dans les données externes et je
ne vois pas comment faire. Un peu d'aide serait apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________




Avatar
François Racine
Je dois créer une macro à la main en insérant ce code et ce code générera un
chiffrier excel?

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de news:
ecJo$
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message de
news:
Je souhaiterais créer une macro dans Excel pour extraire les membres d'un
groupe de Active Directory. J'ai regardé dans les données externes et je
ne vois pas comment faire. Un peu d'aide serait apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________








Avatar
Michel Pierron
Re François;
Tu colles le code indiqué dans un module standard d'un classeur Excel et tu
ajoutes la procédure suivante dans le même module en renseignant le nom du
domaîne à explorer ainsi que le nom du groupe pour lequel tu souhaites
récupérer la liste des utilisateurs référencés dans le groupe en question;
la colonne 1 de la feuille active du classeur contiendra la liste en
question après exécution de la macro UsersList.

Sub UsersList
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
End Sub

MP


"François Racine" a écrit dans le message de
news:
Je dois créer une macro à la main en insérant ce code et ce code générera
un chiffrier excel?

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de news:
ecJo$
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je souhaiterais créer une macro dans Excel pour extraire les membres
d'un groupe de Active Directory. J'ai regardé dans les données externes
et je ne vois pas comment faire. Un peu d'aide serait apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________












Avatar
François Racine
1. On ne peut pas le faire en se connectant à une source externe WBEM ou
autre?
2. C'est un code intéressant et je vais le tester dès que possible.

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de news:

Re François;
Tu colles le code indiqué dans un module standard d'un classeur Excel et
tu ajoutes la procédure suivante dans le même module en renseignant le nom
du domaîne à explorer ainsi que le nom du groupe pour lequel tu souhaites
récupérer la liste des utilisateurs référencés dans le groupe en question;
la colonne 1 de la feuille active du classeur contiendra la liste en
question après exécution de la macro UsersList.

Sub UsersList
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
End Sub

MP


"François Racine" a écrit dans le message de
news:
Je dois créer une macro à la main en insérant ce code et ce code générera
un chiffrier excel?

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de
news: ecJo$
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je souhaiterais créer une macro dans Excel pour extraire les membres
d'un groupe de Active Directory. J'ai regardé dans les données
externes et je ne vois pas comment faire. Un peu d'aide serait
apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________
















Avatar
François Racine
Je remarque que dans la colonne A, il ne sort que les identifiants. Comment
obtenir les noms complets dans la colonne B?

"Michel Pierron" a écrit dans le message de news:

Re François;
Tu colles le code indiqué dans un module standard d'un classeur Excel et
tu ajoutes la procédure suivante dans le même module en renseignant le nom
du domaîne à explorer ainsi que le nom du groupe pour lequel tu souhaites
récupérer la liste des utilisateurs référencés dans le groupe en question;
la colonne 1 de la feuille active du classeur contiendra la liste en
question après exécution de la macro UsersList.

Sub UsersList
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
End Sub

MP


"François Racine" a écrit dans le message de
news:
Je dois créer une macro à la main en insérant ce code et ce code générera
un chiffrier excel?

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de
news: ecJo$
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je souhaiterais créer une macro dans Excel pour extraire les membres
d'un groupe de Active Directory. J'ai regardé dans les données
externes et je ne vois pas comment faire. Un peu d'aide serait
apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________
















Avatar
Michel Pierron
Re François;

Modifie les procédures comme ceci:

Sub UsersList()
Cells.ClearContents
Application.ScreenUpdating = False
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
Cells.Columns.AutoFit
End Sub

Private Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1
Cells(i, 1) = User.Name
Cells(i, 2) = User.FullName
Cells(i, 3) = User.Description
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message de
news:
Je remarque que dans la colonne A, il ne sort que les identifiants.
Comment obtenir les noms complets dans la colonne B?

"Michel Pierron" a écrit dans le message de news:

Re François;
Tu colles le code indiqué dans un module standard d'un classeur Excel et
tu ajoutes la procédure suivante dans le même module en renseignant le
nom du domaîne à explorer ainsi que le nom du groupe pour lequel tu
souhaites récupérer la liste des utilisateurs référencés dans le groupe
en question; la colonne 1 de la feuille active du classeur contiendra la
liste en question après exécution de la macro UsersList.

Sub UsersList
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je dois créer une macro à la main en insérant ce code et ce code
générera un chiffrier excel?

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de
news: ecJo$
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je souhaiterais créer une macro dans Excel pour extraire les membres
d'un groupe de Active Directory. J'ai regardé dans les données
externes et je ne vois pas comment faire. Un peu d'aide serait
apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________




















Avatar
François Racine
Tu es très fort! Merci!
"Michel Pierron" a écrit dans le message de news:

Re François;

Modifie les procédures comme ceci:

Sub UsersList()
Cells.ClearContents
Application.ScreenUpdating = False
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
Cells.Columns.AutoFit
End Sub

Private Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1
Cells(i, 1) = User.Name
Cells(i, 2) = User.FullName
Cells(i, 3) = User.Description
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je remarque que dans la colonne A, il ne sort que les identifiants.
Comment obtenir les noms complets dans la colonne B?

"Michel Pierron" a écrit dans le message de
news:
Re François;
Tu colles le code indiqué dans un module standard d'un classeur Excel et
tu ajoutes la procédure suivante dans le même module en renseignant le
nom du domaîne à explorer ainsi que le nom du groupe pour lequel tu
souhaites récupérer la liste des utilisateurs référencés dans le groupe
en question; la colonne 1 de la feuille active du classeur contiendra la
liste en question après exécution de la macro UsersList.

Sub UsersList
Call AllUserFromGroup("Ici le nom du domaîne", "Ici le nom du groupe")
End Sub

MP


"François Racine" a écrit dans le message
de news:
Je dois créer une macro à la main en insérant ce code et ce code
générera un chiffrier excel?

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________

"Michel Pierron" a écrit dans le message de
news: ecJo$
Bonjour François;
Par exemple:

Sub AllUserFromGroup(sDomain$, sGroup$)
Dim Group, User, i%
Set Group = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group")
For Each User In Group.Members
i = i + 1: Cells(i, 1) = User.Name
Next
Set Group = Nothing
End Sub

MP


"François Racine" a écrit dans le
message de news:
Je souhaiterais créer une macro dans Excel pour extraire les membres
d'un groupe de Active Directory. J'ai regardé dans les données
externes et je ne vois pas comment faire. Un peu d'aide serait
apprécié.

Merci,

--
_________________________________________
François Racine
ICQ#: 36826607
More ways to contact me: http://wwp.icq.com/36826607
_________________________________________