Bonjour à tous,
 
Je sollicite votre car j'ai un problème que je n'arrive pas à résoudre, par avance merci pour votre aide.
Voilà je veux via VBA créer un contact mais pas dans le répertoire par défaut qui est "Contacts" mais dans le groupe "Contacts partagés" dans mon sous répertoire "test".
J'ai un code (ci-dessous) qui ajoute bien le contact dans le répertoire par défaut "Contacts"  mais je ne sais pas comment modifier ce code pour que le contact soit ajouté dans le répertoire "test" du groupe "Contacts partagés".
Comment modifier ce code pour arriver au résultat souhaité ?
Merci.
 
*********************
 
Sub cont()
 
 Const olContactItem = 2
 
 Set objOutlook = CreateObject("Outlook.Application" )
 Set objContact = objOutlook.CreateItem(olContactItem)
 
 objContact.FullName = "AAA"
 objContact.Email1Address = "kenmyer@fabrikam.com"
 objContact.CompanyName = "Fabrikam"
 objContact.JobTitle = "Administrateur réseau"
 objContact.HomeTelephoneNumber = "555-555-8888"
 objContact.HomeAddress = "3725 205th NE" & vbCrLf & "Redmond, WA 98052"
 objContact.Birthday = "9/15/1966"
 
 objContact.Save
 
End Sub