Archive for mars, 2013

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
Page 1 of 1

Contactez-nous contact@expert-data.fr

EXPERT data, solutions pour TPE/PME et grands comptes