Macro pour exporter des données dans OUTLOOK et création fiche contact

[Lodan91]

Bonjour à tous,

Tout est dans le titre, après avoir fouillé sur le net, je souhaite savoir si cette macro existe:

Cellule A1: "NOM"
Celleule A2: "Prénom"
Cellule A3: n° téléphone
Cellule A4: mail

Ma question est simple, je veux qu'un bouton me permette d'exporter les données de A1, A2, A3 et A4 dans OUTLOOK en me créant une fiche contact.

Merci de me dire si c'est possible,

Bien à vous,

 

[Yaloo]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonsoir Lodan91,

Avec ceci, macro de Jacques BOISGONTIER

Option Explicit
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(2)
    With olItem
        .FirstName = Cells(i, 1)
        .LastName = Cells(i, 2)
        .HomeAddressCity = Cells(i, 3)
        .Email1Address = Cells(i, 4)
        .Categories = "Professionnel, Personnel"
        .Save
    End With
Next
End Sub

A te relire

Martial

 

[Lodan91]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Merci infiniment, cela corrspond parfaitement à ma recherche.
par contre comment l'intégrer dans un dossier spécifié dans la liste de mes contacts OUTLOOK?

Est ce du style: ".Folder = "Contacts excel""

Merci!

 

[Yaloo]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonsoir,

Désolé, je ne sais pas comment faire cette action.

Peut être que quelqu'un d'autre pourra de renseigner.

A+

Martial

 

[Lodan91]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonjour,

Comment changer les cellules avec cette macro? Car je ne vois pas comment les affecter.

 

[Yaloo]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonsoir Lodan91,

Pour modifier les colonnes, il faut changer les chiffres juste avant les )

        .FirstName = Cells(i, 1)
         .LastName = Cells(i, 2)
         .HomeAddressCity = Cells(i, 3)
         .Email1Address = Cells(i, 4)

Le 1 correspond à la 1ère colonne A, le 2 colonne B etc...

A+

Martial

 

[Lodan91]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonjour Martial,

Ok pour la colonne mais comment changer la ligne si tout n'est pas sur la même ligne?

De plus, le code présenté me donne 2 fiches contacts alors que je n'en souhaite qu'une.
Je peux effectivement modifier la colonne, ca je l'avais compris, mais pour orienter le code vers des cellules et non pas une colonne?

Exemple:

Nom dans cellule "I6"
Prénom dans cellule "I7"
Mail dans cellule "D4"
Téléphone dans cellule "K8"

 

[Yaloo]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonjour Lodan91,

Mets nous un fichier anonymisé, le plus léger possible mais avec toutes les informations nécessaires.

A+

Martial

 

[Lodan91]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Ok, merci d'affecter la macro au bouton bleu

 

[Yaloo]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonsoir Lodan,

La macro de mon post#2 permet de lister tous les contacts dans un fichier Excel.

Que veux-tu faire exactement ? Rechercher juste un contact ? Créer une fiche par Contact ?

Car dans la disposition de ton fichier exemple, il n'est pas possible d'extraire tous les contacts Outlook.

A te relire

Martial

 

[Lodan91]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonjour,

Je ne souhaite pas extraire les contacts de OUTLOOK, je souhaite qu'à partir du remplissage des cellules "Nom, Prénom, Tél...", qu'une fiche contact se créé dans OUTLOOK.

Contact exporté de EXCEL vers OUTLOOK, et non l'inverse.
La macro proposé correspond à ce que je souhaite mais n'est pas modifiable comme je le souhaite en fonction des cellules choisies. A moins que ce soit possible mais que je ne saches pas quoi remplacer dans la formule.


Merci

 

[Yaloo]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Bonsoir Lodan,

Vois ton fichier avec la modification, voici le lien si jamais tu souhaitais rajouter certains points.

En espérant avoir répondu à ta demande (mieux vaut tard que jamais 😉)

A+

Martial

 

[Lodan91]

Re : Macro pour exporter des données dans OUTLOOK et création fiche contact

Super!!

Exactement ce qu'il me fallait!! Merci beaucoup!!

Bien à toi,