XL 2016 Modifier un contact Outlook

[Don pépé]

Bien le bonjour,
Je voudrais savoir si quelqu'un savais comment je peux m'y prendre pour modifier un contact Outlook depuis Excel.
J'arrive à importer les contacts Outlook dans Excel, a créer des contacts depuis Excel dans Outlook, mais je n'arrive pas à modifier le contact j'ai chercher sur le net mais sans résultat.

Help me 😉

Merci à vous

 

[Jauster]

Hello,

Quelle étape de la modification tu n'arrives pas à faire ? Normalement tu peux extraire les contacts outlook sous format .CSV
Tu devrais ensuite pouvoir modifier le fichier avec Excel (en prenant le soin de convertir Texte>Colonnes) et l'importer à nouveau dans Outlook

 

[Lone-wolf]

Bonjour Don pépé

Moi j'ai trouvé ceci, à adapter à ton fichier ADRESSE WEB

Public Sub UpdateContacts()
On Error GoTo Err_UpdateContacts

    Dim olNS As NameSpace
    Dim olContactFolder As Folder
    Dim olContactItem As ContactItem
    Dim olItems As Outlook.Items
     
    Set olNS = Application.GetNamespace("MAPI")
    Set olContactFolder = olNS.GetDefaultFolder(olFolderContacts)
    Set olItems = olContactFolder.Items.Restrict("[MessageClass]='IPM.Contact'")
  
    For Each olContactItem In olItems
        'If olContactItem.CompanyName = "ABC Company" Then
            'do whatever you want to do here
        'End If
        Debug.Print olContactItem.LastName
    Next
  
Exit_UpdateContacts:
    Set olContactItem = Nothing
    Set olItems = Nothing
    Set olContactFolder = Nothing
    Set olNS = Nothing
    Exit Sub

Err_UpdateContacts:
    MsgBox Err.Number & ", " & Err.Description, , "Error"
    Resume Exit_UpdateContacts

End Sub

 

[Don pépé]

Merci a vous 2 d'avoir pris le temps de me répondre.
Je vais regarder sa de plus près quand j'aurais un peux plus de temps.
Je reviendrais si problème il y a 😉