Ajouter un contact dans un dossier contact Outlook - Macro/VBA

Bonjour,

J'ai un fichier Excel dans lequel chaque ligne représente un client différent. Je souhaiterai pouvoir créer un bouton me permettant d'insérer directement ses coordonnée dans une fiche de contact Outlook.

J'ai trouvé une macro permettant d'alimenter la fiche de contact malheureusement je n'arrive pas à sélectionner un dossier nommé "Client" dans mon répertoire. Avez-vous une solution pour que ma fiche contact s'enregistre directement dans ce dossier ?

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim objOutlook As Outlook.Application Dim objcontact As ContactItem   'Crée l'instance Outlook Set objOutlook = New Outlook.Application 'Crée un élément pour les contacts Set objcontact = objOutlook.CreateItem(olContactItem)   With objcontact   .LastName = Sheets("Liste").Cells(NuméroLigne, 7) 'Si le nom se trouve en colonne 7 .FirstName = Sheets("Liste").Cells(NuméroLigne, 8) .BusinessAddressStreet = Sheets("Liste").Cells(NuméroLigne, 10) .BusinessAddressPostalCode = Sheets("Liste").Cells(Num?roLigne, 13) .BusinessAddressCity = Sheets("Liste").Cells(NuméroLigne, 14) .BusinessTelephoneNumber = Sheets("Liste").Cells(NuméroLigne, 16) .Save   End With

---

Merci d'avance

Hello,

Il faut "vise" le bon dossier contact dans Outlook, et pas celui par default

Devrait être un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim myolApp As Outlook.Application Dim myNamespace As Outlook.Namespace Dim Folder As Outlook.Folder   Set myolApp = CreateObject("Outlook.Application") Set myNamespace = myolApp.GetNamespace("MAPI") Set Folder = myNamespace.GetDefaultFolder(olFolderContacts).Parent.Folders("Client") 'modifier par nom dossier contact   Set objContact = Folder.items.Add(olContactItem)   With objContact .... End With

---

Merci pour ta réponse mfoxy. Malheureusement ça ne fonctionne toujours pas, la ligne :

Code:

---

Set Folder = myNamespace.GetDefaultFolder(olFoderContacts).Parent.Folders("Client")

---

Ne fonctionne pas elle se met en erreur. Folder est égal à rien. Je ne m'y connais pas suffisamment en Excel pour comprendre ce qui ne va pas…

Hello,

Sorry mais pas testable car pas au boulot auj.
il semble manquer le L dans "olfoLder" le dossier contact est bien "Client"

Tu pourrais donner le mesg d erreur stp, si tjrs nok, je pourrai tester au taff seleument à partir de lundi, donc si qq un à une autre idée.

Bonjour,

Effectivement cela venez d'une faute de frappe. La formule fonctionne mais elle n'alimente toujours pas mon dossier "Client".
En effet, lorsque je lance la macro, la fiche client s'enregistre dans le dossier "Contact" puis elle se classe automatiquement par nom de société. Or je souhaiterai qu'elle s'enregistre dans le dossier "Client" puis qu'elle se classe en fonction de la catégorie de l'entreprise (ex : Banque, Artisan…) Mais je ne sais pas comment le gérer.

Faudrait voir l arborescence de tes dossiers contact.
et pointer ce dossier de dossier contact

Mon répertoire s'organise de la manière suivante

Mes contacts

1. Clients
2. Contacts Skype Entreprise
3. Contacts

Lorsque je lance ma macro, les fiches contacts s'enregistre dans le dossier "Contacts". Dans ce dossier, les clients sont classer en fonction du nom de la société. Mon but et de les enregistrer dans le dossier "Partenaire" qui n'est pas vraiment classé (or mis par ordre Alphabétique). J'aimerai donc que les fiches contacts puissent se classer par catégorie (Ex : Banque, Artisan, Industriel…)