Bonsoir,
Afin de récupérer l'annuaire LDAP dans une table access, j'ai réalisé ce code, une erreur ce pose sur le nom d'un attribut dans AdsPath car celui ci est as-gh. vba fait objUser.as - gh, pouvez vous m'indiquer comment résoudre ce pb. il refuse objUser![as-gh], objUser.("as-gh") ???
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Dim MaBd As Database, T As Recordset
Set MaBd = DBEngine.Workspaces(0).Databases(0)
Set T = MaBd.OpenRecordset("ListeNom")
Dim A
Dim B
Dim C
Dim D
Dim E
Dim NomChamp
Dim wz_Valeur As Integer
objCommand.CommandText = "SELECT * FROM 'LDAP://172.16.16.134:389/o=xxxxx/ou=fr' WHERE objectClass='Person'"
Set objRecordSet = objCommand.Execute
DoCmd.SetWarnings False
DoCmd.OpenQuery "Req-Sup-ListeNom"
If objRecordSet.RecordCount > 0 Then
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Set objUser = GetObject(objRecordSet.Fields("AdsPath").Value)
T.AddNew
T![Mail] = objUser.Mail
T![Prenom] = objUser.givenName
T![Nom] = objUser.SN
T![Site] = objUser.Location
T![Telephon] = objUser.TelephoneNumber
' T![Matricule] = objUser.as-gh
T.Update
objRecordSet.MoveNext
Loop
End If
T.Close