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