Discussion :

[Sa74v]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mfoxy]

Hello,

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

Devrait être un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sa74v]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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…

[mfoxy]

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.

[Sa74v]

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.

[mfoxy]

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

[Sa74v]

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…)