Création CONTACTS OUTLOOK à partir d'une MACRO EXCEL

[Lodan91]

Bonjour,

J'ai beau chercher dans tous les forums pour trouver des réponses, mais même sur les sites étrangers, les macros que j'ai obtenues ne fonctionnent pas.

Ma question est simple:

J'aimerai créer un bouton affecté à une macro qui permettrait d'envoyer des coordonnées d'un tableau excel dans une nouvelle fiche contact OUTLOOK.

Avec:

A5: Nom
A6: Prénom
A7: Téléphone
A8: Ville
A9: mail


J'ai réussi à trouver cette macro:

Private Sub CommandButton1_Click()
Dim i, olApp As Object, olItem As Object
For i = 1 To 2
Set olApp = CreateObject("Outlook.Application")
Set olItem = olApp.CreateItem(1)
With olItem
.FirstName = Cells(i, 1)
.LastName = Cells(i, 2)
.HomeAddressCity = Cells(i, 3)
.Email1Address = Cells(i, 4)
.BusinessTelephoneNumber = "0" & Cells(i, 5)
.Categories = "Professionnel"
.Save
End With
Next
End Sub

Cependant, elle ne permet pas de choisir la cellule qui donnera le nom, le tél, le mail, etc...

Merci de votre aide.

 

[Lodan91]

Re : Création CONTACTS OUTLOOK à partir d'une MACRO EXCEL

Bonjour modérateurs,

Vous pouvez supprimer ce message ou le lier avec l'autre discussion identique que j'avais oublié en mars 2013.

Merci d'y répondre en tout cas.