Outlook Import de contacts de excel vers Outlook (office 2010)

[samyosemite]

Bonjour,
je souhaite importer ou mettre a jour des contacts d'un tableau excel vers Outlook.

étant debutant, j'arrive juste a ajouter !
mais lorsque je redeclenche la macro ça me rajoute les mêmes contacts!

Comment faire une mise a jour des contacts existant et ajouter les contact inexistant seulement.

Merci


Sub MajContactOutlook()

Dim objOutlook As Outlook.Application
Dim objContact As ContactItem


DerLig = Sheets("Salarié").Range("E2").End(xlDown).Row

'Crée l'instance Outlook
Set objOutlook = New Outlook.Application


For LineNumber = 2 To Rows.Count


If LineNumber <= DerLig Then


'Crée un élément pour les contacts
Set objContact = objOutlook.CreateItem(olContactItem)

With objContact
.Email1Address = Sheets("Salarié").Cells(LineNumber, 1)
.FirstName = Sheets("Salarié").Cells(LineNumber, 2)
.LastName = Sheets("Salarié").Cells(LineNumber, 3)
.BusinessTelephoneNumber = Sheets("Salarié").Cells(LineNumber, 4)
.Initials = Sheets("Salarié").Cells(LineNumber, 5)
.Title = Sheets("Salarié").Cells(LineNumber, 6)
.MobileTelephoneNumber = Sheets("Salarié").Cells(LineNumber, 7)
.Department = Sheets("Salarié").Cells(LineNumber, 8)
.CompanyName = Sheets("Salarié").Cells(LineNumber, 9)
.Save 'Sauvegarde du contact
End With
Else: Exit For

End If
'Suppression de l'objet contact

Set objContact = Nothing
Next

'Suppression des autres objets créés

Set objOutlook = Nothing


End Sub

 

[Johann RSW]

Bonjour,
As-tu réussi à importer ou mettre a jour des contacts Outlook depuis d'un tableau excel ?