[XL-2003] nouveau contact outlook depuis vba excel

[hro413862]

Bonjour
je souhaiterai créer un nouveau contact outlook depuis excel vba, non pas dans le dossier par défaut, mais dans un dossier spécifique, par ex "Test"

Code :

1
2
3
4
5
6
.....
    Set objOutlook = New Outlook.Application
    'Crée un élément pour les contacts
    Set objContact = objOutlook.CreateItem(olContactItem) 'dans le dossier "Test".
....'Les éléments à saisir...
    objContact.save

En panne d'idée. Merci de l'aide.