Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel utiliser le carnet d'adresses de outlook dans excel

utiliser le carnet d'adresses de outlook dans excel

32 réponses
Avatar
Misange
Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale
ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
MichDenis
Bonjour Misange,

Si tu fais référence à Outlook Express, je crois que le seul moyen
est de créer un fichier .csv à l'aide de la commande de la fenêtre
du carnet d'adresse : Fichier / Exporter

Dans un deuxième temps, il s'agit de récupérer ce fichier .csv dans
excel.

C'est plutôt un travail manuel que de l'automation !!!

;-)


"Misange" a écrit dans le message de news:
%
Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale
ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Avatar
MichDenis
Si tu fais référence au "Contact" de Microsoft Outlook,

(il y a toujours moyen d'importer son carnet d'adresse de
outlook express vers Microsoft Outlook ...)

'---------------------------------------
Il se peut que vous ayez besoin de définir d'autres propriétés
comme l'adresse du client, son numéro de téléphone....etc....
Et pour connaître l'appellation exacte de ces propriétés, utiliser
dans la fenêtre VBE (visualbasic editor ) de Excel, l'explorateur
de projet. Dans la petite boîte de saisie "Rechercher", vous inscrivez
"Email1Address" et vous allez obtenir dans la section de droite de la
fenêtre du bas toutes les propriétés disponibles.

N.B. Dès que vous touchez aux adresses de courriel, il faut vous
attendre à ce qu'une fenêtre s'ouvre vous demandant
l'autorisation.

'-------------------------------------
Sub ImporterContacts()
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim ObjFolder As MAPIFolder
Dim NumLigne As Integer
Dim NbContacts As Integer

Set objApp = New Outlook.Application
Set objNS = objApp.GetNamespace("MAPI")
Set ObjFolder = objNS.GetDefaultFolder(olFolderContacts)

NumLigne = 1
NbContacts = ObjFolder.Items.Count

For A = 1 To NbContacts
NumLigne = NumLigne + 1
With Worksheets("Feuil1")
.Cells(NumLigne, 1) = ObjFolder.Items(A)
.Cells(NumLigne, 2) = ObjFolder.Items(A).FirstName
.Cells(NumLigne, 3) = ObjFolder.Items(A).LastName
.Cells(NumLigne, 4) = ObjFolder.Items(A).Email1Address
End With
Next

Set objApp = Nothing: Set objNS = Nothing: Set ObjFolder = Nothing
End Sub
'---------------------------------------


"Misange" a écrit dans le message de news:
%
Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale
ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Avatar
Misange
Salut Denis
Je cause effectivement des contacts d'outlook, pas d'OE
Je veux justement éviter de devoir exporter les contacts. L'idée c'est
d'avoir un seul endroit pour maintenir à jour ma liste d'adresse.
J'essaie ta macro.
J'ai pas regardé si dans office 2007 ils ont pensé à partager le carnet
de contacts d'outlook avec excel. Est ce que quelqu'un à regardé ça ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Si tu fais référence au "Contact" de Microsoft Outlook,

(il y a toujours moyen d'importer son carnet d'adresse de
outlook express vers Microsoft Outlook ...)

'---------------------------------------
Il se peut que vous ayez besoin de définir d'autres propriétés
comme l'adresse du client, son numéro de téléphone....etc....
Et pour connaître l'appellation exacte de ces propriétés, utiliser
dans la fenêtre VBE (visualbasic editor ) de Excel, l'explorateur
de projet. Dans la petite boîte de saisie "Rechercher", vous inscrivez
"Email1Address" et vous allez obtenir dans la section de droite de la
fenêtre du bas toutes les propriétés disponibles.

N.B. Dès que vous touchez aux adresses de courriel, il faut vous
attendre à ce qu'une fenêtre s'ouvre vous demandant
l'autorisation.

'-------------------------------------
Sub ImporterContacts()
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim ObjFolder As MAPIFolder
Dim NumLigne As Integer
Dim NbContacts As Integer

Set objApp = New Outlook.Application
Set objNS = objApp.GetNamespace("MAPI")
Set ObjFolder = objNS.GetDefaultFolder(olFolderContacts)

NumLigne = 1
NbContacts = ObjFolder.Items.Count

For A = 1 To NbContacts
NumLigne = NumLigne + 1
With Worksheets("Feuil1")
.Cells(NumLigne, 1) = ObjFolder.Items(A)
.Cells(NumLigne, 2) = ObjFolder.Items(A).FirstName
.Cells(NumLigne, 3) = ObjFolder.Items(A).LastName
.Cells(NumLigne, 4) = ObjFolder.Items(A).Email1Address
End With
Next

Set objApp = Nothing: Set objNS = Nothing: Set ObjFolder = Nothing
End Sub
'---------------------------------------


"Misange" a écrit dans le message de news:
%
Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale
ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)


Avatar
JLuc
*Bonjour Misange*,
Content de te lire ;-)
http://cjoint.com/?lwhvarAKGR
Ceci est un lien sur un fichier modèle pour Word qui gère les contacts
Outlook. Je pense qu'il doit être assez facile de l'utiliser sur Excel
Toujours en déplacement ?
:-)

Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui sont
dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale ça y est
même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une adresse
dans une feuille excel.
Merci de votre aide ;-)


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Misange
Bonjour Jean Luc

Il y a une grosse différence entre excel et word c'est que la
récupération des adresses d'outlook est prévue dans word avec un pitit
bouton tout prêt :-)
Mais de fait ce que tu as fait dans word est proche de ce que je cherche
à faire dans excel et en tous cas je garde ton fichier word bien pratique !
merci
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

*Bonjour Misange*,
Content de te lire ;-)
http://cjoint.com/?lwhvarAKGR
Ceci est un lien sur un fichier modèle pour Word qui gère les contacts
Outlook. Je pense qu'il doit être assez facile de l'utiliser sur Excel
Toujours en déplacement ?
:-)

Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses
qui sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur
scandale ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)





Avatar
Michel Pierron
Bisous Misange;

Méthode 1:
Sub ImportContacts()
Dim i&, oApp As Object, oFolder As Object
Set oApp = CreateObject("outlook.application").GetNamespace("MAPI")
Set oFolder = oApp.GetDefaultFolder(olFolderContacts)
Workbooks.Add
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1") = "CONTACT": Range("B1") = "ADDRESSE"
Range("A1:B1").Font.Bold = True
For i = 1 To oFolder.Items.Count
Cells(i + 1, 1) = oFolder.Items(i)
Cells(i + 1, 2) = oFolder.Items(i).Email1Address
Next i
Set oApp = Nothing: Set oFolder = Nothing
Columns("A:E").Columns.AutoFit
End Sub

Méthode 2:
Sub AddressList()
Dim x&, mailAddress As String, i&, j&
With CreateObject("outlook.application").GetNamespace("MAPI")
Workbooks.Add
For i = 1 To .AddressLists.Count
DoEvents
If i > 1 Then ActiveWorkbook.Sheets.Add
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select: x = 1
Range("A1") = "CONTACT": Range("B1") = "ADDRESS"
Range("A1:B1").Font.Bold = True
ActiveSheet.Name = .AddressLists(i).Name
Application.ScreenUpdating = False
For j = 1 To .AddressLists(i).AddressEntries.Count
DoEvents
If .AddressLists(i).AddressEntries(j).Type = "SMTP" Then
mailAddress = Trim(.AddressLists(i).AddressEntries(j).Address)
If mailAddress <> "" And InStr(1, mailAddress, "@") Then
x = x + 1
Cells(x, 1) = .AddressLists(i).AddressEntries(j).Name
Cells(x, 2) = mailAddress
End If
End If
Next j
Columns("A:B").Columns.AutoFit
Next i
End With
End Sub

MP

"Misange" a écrit dans le message de news:
%
Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale
ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net


Avatar
JLuc
Misange avait soumis l'idée :
Il y a une grosse différence entre excel et word c'est que la récupération
des adresses d'outlook est prévue dans word avec un pitit bouton tout prêt
:-)


C'est possible, je ne sais pas. A l'époque, j'avais quand même pas mal
galéré pour y arriver même avec l'aide de MPFW. Et vu l'utilisation que
j'en ai fais, je suis pas sur qu'il y a d'autres possibilités (du moins
à ma connaissance :') )
rofl

--
JLuc

Avatar
Misange
Bisous aussi à toi Michel

Bilan des tests (pas très exhaustifs faute de temps pour le moment:)
la macro de Denis rale sur
Dim objApp As Outlook.Application
...Type non défini

ta N° 2 rale sur
Set oFolder = oApp.GetDefaultFolder(olFolderContacts)
une ou plusieurs valeurs de paramètres ne sont pas valides

En revanche la première permet très bien de récupérer les contacts
d'outlook dans excel. Reste à m'inspirer du formulaire de Jean Luc pour
bisouiller un userform permettant de choisir le contact et d'incorporer
son adresse dans excel.

Merci à vous 3 !

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bisous Misange;

Méthode 1:
Sub ImportContacts()
Dim i&, oApp As Object, oFolder As Object
Set oApp = CreateObject("outlook.application").GetNamespace("MAPI")
Set oFolder = oApp.GetDefaultFolder(olFolderContacts)
Workbooks.Add
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1") = "CONTACT": Range("B1") = "ADDRESSE"
Range("A1:B1").Font.Bold = True
For i = 1 To oFolder.Items.Count
Cells(i + 1, 1) = oFolder.Items(i)
Cells(i + 1, 2) = oFolder.Items(i).Email1Address
Next i
Set oApp = Nothing: Set oFolder = Nothing
Columns("A:E").Columns.AutoFit
End Sub

Méthode 2:
Sub AddressList()
Dim x&, mailAddress As String, i&, j&
With CreateObject("outlook.application").GetNamespace("MAPI")
Workbooks.Add
For i = 1 To .AddressLists.Count
DoEvents
If i > 1 Then ActiveWorkbook.Sheets.Add
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select: x = 1
Range("A1") = "CONTACT": Range("B1") = "ADDRESS"
Range("A1:B1").Font.Bold = True
ActiveSheet.Name = .AddressLists(i).Name
Application.ScreenUpdating = False
For j = 1 To .AddressLists(i).AddressEntries.Count
DoEvents
If .AddressLists(i).AddressEntries(j).Type = "SMTP" Then
mailAddress = Trim(.AddressLists(i).AddressEntries(j).Address)
If mailAddress <> "" And InStr(1, mailAddress, "@") Then
x = x + 1
Cells(x, 1) = .AddressLists(i).AddressEntries(j).Name
Cells(x, 2) = mailAddress
End If
End If
Next j
Columns("A:B").Columns.AutoFit
Next i
End With
End Sub

MP

"Misange" a écrit dans le message de news:
%
Coucou
Tout est dans le titre... Comment récupérer dans excel les adresses qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur scandale
ça y est même pas !!!
idéalement ce serait bien d'y accéder via un menu déroulant.
Il ne s'agit PAS de faire du publipostage mais juste d'incorporer une
adresse dans une feuille excel.
Merci de votre aide ;-)
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net






Avatar
MichDenis
| la macro de Denis rale sur
| Dim objApp As Outlook.Application
| ...Type non défini


Tu dois ajouter la bibliothèque "Microsoft Outlook x Librairy"
Avatar
JLuc
Misange avait soumis l'idée :
Reste à m'inspirer du formulaire de Jean Luc pour bisouiller


Ce sera avec grand plaisir l-)
lol lol

--
JLuc

1 2 3 4