Autres Ouvrir un contact Outlook via excel

[Lu K]

Bonjour à tous,

Cela fait très longtemps que je ne suis pas venu ici !
Mais aujourd'hui je rencontre un petit soucis entre Outlook et Excel.

Je souhaiterai ouvrir un contact outlook via excel. J'ai un début de piste sur l'ouverture direct de la fenêtre de contact Outlook mais impossible de trouver la solution pour afficher un contact précis suivant des informations contenu dans des cellules :

Sub Ouvrir_contact_Outlook()
'

    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderContacts) 'Ouvre la fenêtre contact de Outlook
    xFolder.display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub

End Sub

Merci d'avance pour vos retour.

 

[kiki29]

Salut, as-tu fouillé sur le site de Ron de Bruin ?

 

[Lu K]

Bonjour kiki29,

Merci de ta réponse.

J'ai regardé le Site de Ron de Bruin et n'ai rien trouvé sur mon sujet !