' ENUMERATE GROUPS AND MEMBERS.
objADAM.Filter = Array('group')
Nom = Mid(objGroup.Name, 4, 20)
'LISTE DES GROUPES AD GGM2003
For Each objGroup In objADAM
'DETECTION GGM 2003
If Mid(objGroup.Name, 4, 11) = 'GGM_SMS2003' Then
User = 0
'DETECTION MEMBRES
For Each objMember In objGroup.Members
User = User + 1
Next
'REMPLISSAGE DU TAB EXCEL
'test premier lancement
If IsEmpty(Feuil1.Cells(x, 1).Value) = True Then
Feuil1.Cells(x, 1).Value = Mid(objGroup.Name, 4, 40)
Feuil1.Cells(x, 2).Value = User
Feuil1.Cells(x, 3).Value = 0
Feuil1.Cells(x, 4).Value = 0
Else
Feuil2.Cells(xtemp, ytemp).Value = Mid(objGroup.Name, 4, 40)
Feuil2.Cells(xtemp, ytemp + 1).Value = User
flag = 2
End If
'Positionnement des y en fonction du remplissage
While IsEmpty(Feuil1.Cells(x, y)) = False
y = y + 3
Wend
x = x + 1
xtemp = xtemp + 1
End If
Next