'
'necessite d'activer la reference Microsoft Outlook xx Object library
'
Dim olApp As New Outlook.Application
Dim dossierContacts As Outlook.MAPIFolder
Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts)
dossierContacts.Display
Set dossierContacts = Nothing
Set olApp = Nothing
pour Outlook Express
Dim Valeur As Long
On Error Resume Next
AppActivate ('Carnet d'adresse')
Valeur = Shell('C:\\\\\\\\Program Files\\\\\\\\Outlook Express\\\\\\\\wab.exe', 1)