[VBA - Excel]Avoir ce code venant d'outlook qui fonctionne

bonjour,
J'avais programmé pour m'amuser un petit truc sur outlook, histoire de comprendre comment ça fonctionnait en gros.
Bon j'aimerai bien d'une part arriver a le faire fonctionner dans une autre architecture sous excel. Malheureusement je pense qu'il doit y avoir une référence a mettre et je n'arrive pas a trouver laquelle.
voici le code :

Code:

---

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

Sub tt()   Dim myNameSpace As Outlook.Namespace Dim myContacts As MAPIFolder Dim MonItem As Outlook.ContactItem   Set myNameSpace = Application.GetNamespace("MAPI") Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts)     For Each MonItem In myContacts.Items txt = txt & Chr(13) & (MonItem.Email1Address) On Error Resume Next Next   MsgBox txt   End Sub

---

Il bloque au niveau de la définition de mycontact, il ne connait pas MAPIfolder.

Après une fois que j'ai fais ceci j'aimerai bien pouvoir lire toutes les informations présentes sur la fiche "contact" autre que le mail professionnel.

En espérant avoir été assez clair...

bonsoir

Tu peux utiliser cette procédure après avoir activé la référence "Microsoft Outlook xx.x Object Library".

Code:

---

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

Dim olApp As Outlook.Application Dim Cible As Outlook.ContactItem Dim dossierContacts As Outlook.MAPIFolder Dim Resultat As String   Set olApp = New Outlook.Application Set dossierContacts = _ olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)   On error Resume Next For Each Cible In dossierContacts.Items Resultat = Resultat & Cible.Email1Address & vbLf Next Cible   MsgBox Resultat

---

bonne soirée
michel