VBA EXCEL & OUTLOOK : Exporter le carnet d’adresse Outlook vers Excel
Pour diverses raisons, il peut être utile d’exporter le carnet d’adresse d’Outlook vers Excel.
Voici un bout de code très simple qui boucle sur toutes les listes d’adresses Outlook et le contenu dans un fichier Excel. Au préalable, il faut bien entendu activer dans l’éditeur VBA la référence Outlook (menu « outils – références ») :
Sub EXPORT_ADRESSES()
Dim MonOutlook As New Outlook.Application
Set MaSession = MonOutlook.Session
Cells.ClearContents
Cells(1, 1).Value = "Liste"
Cells(1, 2).Value = "Addresse"
Cells(1, 3).Value = "Nom"
Cells(1, 4).Value = "Type"
ligne = 2
For Each Liste In MaSession.AddressLists
For Each Entry In Liste.AddressEntries
Cells(ligne, 1).Value = Liste.Name
Cells(ligne, 2).Value = Entry.Address
Cells(ligne, 3).Value = Entry.Name
Cells(ligne, 4).Value = Entry.Type
ligne = ligne + 1
Next
Next
End Sub
Top