utiliser le carnet d'adresses de outlook dans excel

bon en fait un petit on error resume next judicieusement placé résoud le
problème de contacts incomplets auxquels il manque soit le nom soit le
prénom ce qui plantait la macro.
Merci pour le joli boulot à tous
(ps le meme on error resule next résoud le même pb dans la macro de
Denis ;-))

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

Bonjour JB
Merci de te pencher aussi sur le problème !
J'obtiens un "propriété ou méthode non gérée par cet objet" à
l'affichage du userform. En suivant pas à pas, il semble que les
éléments des contacts ne soient pas intégrés dans le tableau, car
"indice n'appartient pas à la sélection".
JE suis avec outlook 2002 et en cochant la bonne librairie ca colle (ça
c'est pour répondre à Jean luc)

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

Bonjour Misange,

Liste triée des contacts dans un formulaire:
Pour récupérer le formulaire dans un classeur Excel, utiiliser
Exporter/Importer formulaire.

http://cjoint.com/?lxfPfkbKKn

Private Sub UserForm_Initialize()
' Outils/Référence OutLook
Dim Tbl()
Dim olNS As Outlook.Namespace
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Contacts = olNS.GetDefaultFolder(olFolderContacts)
Set LItems = Contacts.Items
n = 0
For Each i In LItems
ReDim Preserve Tbl(0 To 2, 0 To n)
Tbl(0, n) = i.FirstName
Tbl(1, n) = i.LastName
Tbl(2, n) = i.Email1Address
n = n + 1
Next
Tri Tbl()
Me.ListBox1.List = Application.Transpose(Tbl)
End Sub

Sub Tri(table())
xn = UBound(table, 2)
ecart = xn ' tri shell
Do While ecart >= 1
ecart = ecart 2
inv = True
Do While inv
inv = False
For i = 0 To xn - ecart
j = i + ecart
If table(0, j) < table(0, i) Then
temp = table(0, j): table(0, j) = table(0, i): table(0, i) >> temp
temp = table(1, j): table(1, j) = table(1, i): table(1, i) >> temp
temp = table(2, j): table(2, j) = table(2, i): table(2, i) >> temp
inv = True
End If
Next
Loop
Loop
End Sub

Private Sub ListBox1_Click()
[A1] = ListBox1
[A2] = ListBox1.Column(1)
[A3] = ListBox1.Column(2)
End Sub

JB

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

version modifiée pour contacts incomplets et tri + rapide:

http://cjoint.com/?lyeMX8YFlZ
http://cjoint.com/?lyeN2u1QN5

Private Sub UserForm_Initialize()
Dim Tbl()
Dim olNS As Outlook.Namespace
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Contacts = olNS.GetDefaultFolder(olFolderContacts)
Set LItems = Contacts.Items
n = 0
On Error Resume Next ' Contacts incomplets
For Each i In LItems
ReDim Preserve Tbl(0 To 2, 0 To n)
Tbl(0, n) = i.FirstName
Tbl(1, n) = i.LastName
Tbl(2, n) = i.Email1Address
n = n + 1
Next
On Error GoTo 0
Call triQ(Tbl, 0, n - 1)
Me.ListBox1.List = Application.Transpose(Tbl)
End Sub

Sub triQ(a(), gauc, droi)
' Quick sort
ref = a(0, (gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(0, g) < ref: g = g + 1: Loop
Do While ref < a(0, d): d = d - 1: Loop
If g <= d Then
temp = a(0, g): a(0, g) = a(0, d): a(0, d) = temp
temp = a(1, g): a(1, g) = a(1, d): a(1, d) = temp
temp = a(2, g): a(2, g) = a(2, d): a(2, d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call triQ(a, g, droi)
If gauc < d Then Call triQ(a, gauc, d)
End Sub

Private Sub ListBox1_Click()
[A1] = ListBox1 ' Récupération contact
choisi
[A2] = ListBox1.Column(1)
[A3] = ListBox1.Column(2)
End Sub

JB

bon en fait un petit on error resume next judicieusement placé résoud le
problème de contacts incomplets auxquels il manque soit le nom soit le
prénom ce qui plantait la macro.
Merci pour le joli boulot à tous
(ps le meme on error resule next résoud le même pb dans la macro de
Denis ;-))

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

Bonjour JB
Merci de te pencher aussi sur le problème !
J'obtiens un "propriété ou méthode non gérée par cet objet" à
l'affichage du userform. En suivant pas à pas, il semble que les
éléments des contacts ne soient pas intégrés dans le tableau, c ar
"indice n'appartient pas à la sélection".
JE suis avec outlook 2002 et en cochant la bonne librairie ca colle ( ça
c'est pour répondre à Jean luc)

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

Bonjour Misange,

Liste triée des contacts dans un formulaire:
Pour récupérer le formulaire dans un classeur Excel, utiiliser
Exporter/Importer formulaire.

http://cjoint.com/?lxfPfkbKKn

Private Sub UserForm_Initialize()
' Outils/Référence OutLook
Dim Tbl()
Dim olNS As Outlook.Namespace
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Contacts = olNS.GetDefaultFolder(olFolderContacts)
Set LItems = Contacts.Items
n = 0
For Each i In LItems
ReDim Preserve Tbl(0 To 2, 0 To n)
Tbl(0, n) = i.FirstName
Tbl(1, n) = i.LastName
Tbl(2, n) = i.Email1Address
n = n + 1
Next
Tri Tbl()
Me.ListBox1.List = Application.Transpose(Tbl)
End Sub

Sub Tri(table())
xn = UBound(table, 2)
ecart = xn ' tri shell
Do While ecart >= 1
ecart = ecart 2
inv = True
Do While inv
inv = False
For i = 0 To xn - ecart
j = i + ecart
If table(0, j) < table(0, i) Then
temp = table(0, j): table(0, j) = table(0, i): table(0, i ) =
temp
temp = table(1, j): table(1, j) = table(1, i): table(1, i ) =
temp
temp = table(2, j): table(2, j) = table(2, i): table(2, i ) =
temp
inv = True
End If
Next
Loop
Loop
End Sub

Private Sub ListBox1_Click()
[A1] = ListBox1
[A2] = ListBox1.Column(1)
[A3] = ListBox1.Column(2)
End Sub

JB

Coucou
Tout est dans le titre... Comment récupérer dans excel les adress es qui
sont dans outlook ? J'ai cherché sur excelabo mais c'est un pur sca ndale
ç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

Bonjour

ce serait pour une automatisation ( voir "objet" )

c'est possible ?

Bonjour,


http://cjoint.com/?lyioXAiqhC
Sub lit_messagerie2()
Dim olapp As Outlook.Application 'penser à Outils/Références
Outlook
Dim olns As Outlook.Namespace
Dim olmf As Outlook.MAPIFolder
Dim obj As Object
Set olapp = New Outlook.Application
Set olns = olapp.GetNamespace("mapi")
Set olmf = olns.GetDefaultFolder(olFolderInbox)
Sheets("messagerie").Select
n = 2
For Each obj In olmf.Items
Cells(n, 1) = obj.Subject
Cells(n, 2).ClearComments
Cells(n, 2).AddComment Text:=Replace(obj.Body, Chr(13), "")
Cells(n, 2).Comment.Shape.Height = 150
Cells(n, 2).Comment.Shape.Width = 300
' Cells(n, 2).Comment.Visible = True
' Cells(n, 2).Comment.Shape.Select
' Selection.AutoSize = True
' Cells(n, 2).Comment.Visible = False
Cells(n, 3) = obj.SenderName
n = n + 1
Next
End Sub

Cordialement JB

Bonjour

ce serait pour une automatisation ( voir "objet" )

c'est possible ?

Super !
Est ce que tu crois qu'on peut raffiner un peu encore : les contacts qui
sont à afficher ne sont qu'un sous groupe des contacts uotlook. Ils sont
caractérisés par le fait qu'ils appartiennent tous à la catégorie
"professionnel" par exemple.
Encore une chose : ou trouves tu la liste de tous les items présents
dans les contacts (en fait leur nom VBA) ?
vraiment pratique ce truc ! je sens que ça fera encore un classeur en
téléchargement sur excelabo :-)

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

version modifiée pour contacts incomplets et tri + rapide:

http://cjoint.com/?lyeMX8YFlZ
http://cjoint.com/?lyeN2u1QN5

Private Sub UserForm_Initialize()
Dim Tbl()
Dim olNS As Outlook.Namespace
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Contacts = olNS.GetDefaultFolder(olFolderContacts)
Set LItems = Contacts.Items
n = 0
On Error Resume Next ' Contacts incomplets
For Each i In LItems
ReDim Preserve Tbl(0 To 2, 0 To n)
Tbl(0, n) = i.FirstName
Tbl(1, n) = i.LastName
Tbl(2, n) = i.Email1Address
n = n + 1
Next
On Error GoTo 0
Call triQ(Tbl, 0, n - 1)
Me.ListBox1.List = Application.Transpose(Tbl)
End Sub

Sub triQ(a(), gauc, droi)
' Quick sort
ref = a(0, (gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(0, g) < ref: g = g + 1: Loop
Do While ref < a(0, d): d = d - 1: Loop
If g <= d Then
temp = a(0, g): a(0, g) = a(0, d): a(0, d) = temp
temp = a(1, g): a(1, g) = a(1, d): a(1, d) = temp
temp = a(2, g): a(2, g) = a(2, d): a(2, d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call triQ(a, g, droi)
If gauc < d Then Call triQ(a, gauc, d)
End Sub

Private Sub ListBox1_Click()
[A1] = ListBox1 ' Récupération contact
choisi
[A2] = ListBox1.Column(1)
[A3] = ListBox1.Column(2)
End Sub

JB

bon en fait un petit on error resume next judicieusement placé résoud le
problème de contacts incomplets auxquels il manque soit le nom soit le
prénom ce qui plantait la macro.
Merci pour le joli boulot à tous
(ps le meme on error resule next résoud le même pb dans la macro de
Denis ;-))

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

Bonjour JB
Merci de te pencher aussi sur le problème !
J'obtiens un "propriété ou méthode non gérée par cet objet" à
l'affichage du userform. En suivant pas à pas, il semble que les
éléments des contacts ne soient pas intégrés dans le tableau, car
"indice n'appartient pas à la sélection".
JE suis avec outlook 2002 et en cochant la bonne librairie ca colle (ça
c'est pour répondre à Jean luc)

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

Bonjour Misange,

Liste triée des contacts dans un formulaire:
Pour récupérer le formulaire dans un classeur Excel, utiiliser
Exporter/Importer formulaire.

http://cjoint.com/?lxfPfkbKKn

Private Sub UserForm_Initialize()
' Outils/Référence OutLook
Dim Tbl()
Dim olNS As Outlook.Namespace
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Contacts = olNS.GetDefaultFolder(olFolderContacts)
Set LItems = Contacts.Items
n = 0
For Each i In LItems
ReDim Preserve Tbl(0 To 2, 0 To n)
Tbl(0, n) = i.FirstName
Tbl(1, n) = i.LastName
Tbl(2, n) = i.Email1Address
n = n + 1
Next
Tri Tbl()
Me.ListBox1.List = Application.Transpose(Tbl)
End Sub

Sub Tri(table())
xn = UBound(table, 2)
ecart = xn ' tri shell
Do While ecart >= 1
ecart = ecart 2
inv = True
Do While inv
inv = False
For i = 0 To xn - ecart
j = i + ecart
If table(0, j) < table(0, i) Then
temp = table(0, j): table(0, j) = table(0, i): table(0, i) >>>> temp
temp = table(1, j): table(1, j) = table(1, i): table(1, i) >>>> temp
temp = table(2, j): table(2, j) = table(2, i): table(2, i) >>>> temp
inv = True
End If
Next
Loop
Loop
End Sub

Private Sub ListBox1_Click()
[A1] = ListBox1
[A2] = ListBox1.Column(1)
[A3] = ListBox1.Column(2)
End Sub

JB

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

Bonjour Free,
Ce serait bien que tu ailles lire la netiquette, par exemple ici
http://www.excelabo.net/mpfe/connexion.php
Ce n'est pas une très bonne idée de poser une question dans un fil de
discussion existant. De deux choses l'une ; où bien c'est exactement la
même question, appellant la même réponse et alors il te suffit de lire
celle-ci, ou bien c'est une question différente et le fait de la poser
dans le fil existant perturbe grandement la lecture des réponses : on ne
sait plus qui répond à quoi, celui qui a posé la question initiale
risque de voir "son" fil servir à répondre à la question d'un autre sans
recevoir de réponse à la sienne. Bref ça fout la pagaille. C'est
d'ailleurs tout pareil quand tu as plusieurs questions à poser toi même
: un fil par sujet.
Ensuite, on aime assez ici que les questions soient posées clairement,
pas en quelques mots dans l'objet du message. Depuis outlook, la
fonction exporter te permet d'exporter le contenu du fichier pst qui
contient les mails dans un fichier que tu peux ensuite importer dans
excel si tu le souhaites. Maintenant si cette réponse ne te convient
pas, merci de poursuivre la discussion sur un autre fil :-)


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

Bonjour

ce serait pour une automatisation ( voir "objet" )

c'est possible ?

t'as de la chance, jb est passé par là !
ce que j'ai écrit n'en reste pas moins vrai...
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour Free,
Ce serait bien que tu ailles lire la netiquette, par exemple ici
http://www.excelabo.net/mpfe/connexion.php
Ce n'est pas une très bonne idée de poser une question dans un fil de
discussion existant. De deux choses l'une ; où bien c'est exactement la
même question, appellant la même réponse et alors il te suffit de lire
celle-ci, ou bien c'est une question différente et le fait de la poser
dans le fil existant perturbe grandement la lecture des réponses : on ne
sait plus qui répond à quoi, celui qui a posé la question initiale
risque de voir "son" fil servir à répondre à la question d'un autre sans
recevoir de réponse à la sienne. Bref ça fout la pagaille. C'est
d'ailleurs tout pareil quand tu as plusieurs questions à poser toi même
: un fil par sujet.
Ensuite, on aime assez ici que les questions soient posées clairement,
pas en quelques mots dans l'objet du message. Depuis outlook, la
fonction exporter te permet d'exporter le contenu du fichier pst qui
contient les mails dans un fichier que tu peux ensuite importer dans
excel si tu le souhaites. Maintenant si cette réponse ne te convient
pas, merci de poursuivre la discussion sur un autre fil :-)


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

Bonjour

ce serait pour une automatisation ( voir "objet" )

c'est possible ?

Misange avait soumis l'idée :

Super !
Est ce que tu crois qu'on peut raffiner un peu encore : les contacts qui sont
à afficher ne sont qu'un sous groupe des contacts uotlook. Ils sont
caractérisés par le fait qu'ils appartiennent tous à la catégorie
"professionnel" par exemple.
Encore une chose : ou trouves tu la liste de tous les items présents dans les
contacts (en fait leur nom VBA) ?
Trouver dans l'aide Outlook avec :

Champs Outlook et propriétés équivalentes

Debut de copie
------------------------------------------------
Nom de champs du Sélecteur de champs Outlook Nom de propriété
équivalente de modèle d'objet Outlook
% achevé PercentComplete
Compte Account
Travail réel ActualWork
Adresse sélectionnée Non applicable
Sélecteur d'adresses Non applicable
Journée entière AllDayEvent
Anniversaire de mariage ou fête Anniversary
Assignée DelegationState
Nom de l'assistant(e) AssistantName
Téléphone de l'assistant(e) AssistantTelephoneNumber
Pièce jointe Attachments
Cci BCC
Informations facturation BillingInformation
Anniversaire Birthday
Adresse (bureau) BusinessAddress
Ville (bureau) BusinessAddressCity
Pays (bureau) BusinessAddressCountry
B.P. (bureau) BusinessAddressPostOfficeBox
Code postal (bureau) BusinessAddressPostalCode
État (bureau) BusinessAddressState
Rue (bureau) BusinessAddressStreet
Télécopie (bureau) BusinessFaxNumber
Page d'accueil professionnelle BusinessHomePage
Téléphone (bureau) BusinessTelephoneNumber
Téléphone 2 (bureau) Business2TelephoneNumber
Rappel CallbackTelephoneNumber
Tél. voiture CarTelephoneNumber
Catégories Categories
Cc CC
Modifié par Non applicable
Enfants Children
Ville HomeAddressCity
Couleur Color
Société Companies
Société CompanyName
Téléphone société CompanyMainTelephoneNumber
Terminée Complete
Nom de réseau de l'ordinateur ComputerNetworkName
Contact FormDescription.ContactName
Contacts Links
Contenu Body
Conversation ConversationTopic
Pays HomeAddressCountry
Créé le CreationTime
Code client CustomerID
Terminée le DateCompleted
Différer jusqu'au DeferredDeliveryTime
Service Department
Nom de la liste de distribution DLName
Ne pas autoarchiver NoAging
État du téléchargement Non applicable
Échéance avant le FlagDueBy
Échéance DueDate
Durée Duration
Adr. de messagerie Email1Address
Adr. de messagerie 2 Email2Address
Adr. de messagerie 3 Email3Address
Messagerie sélectionnée Non applicable
Sélecteur de messagerie Non applicable
Fin End
Type d'entrée Type
Date d'expiration ExpiryTime
Classer sous FileAs
Prénom FirstName
État de l'indicateur FlagStatus
Indicateur de suivi FlagRequest
De SentOnBehalfOfName
Site FTP FTPSite
Nom complet FullName
Sexe Gender
Code gouvernement GovernmentIDNumber
Envoyer les réponses à ReplyRecipientNames
Passe-temps Hobby
Adresse (domicile) HomeAddress
Ville (domicile) HomeAddressCity
Pays (domicile) HomeAddressCountry
B.P. (domicile) HomeAddressPostOfficeBox
Code postal (domicile) HomeAddressPostalCode
Dép/Région (domicile) HomeAddressState
Rue (domicile) HomeAddressStreet
Télécopie (domicile) HomeFaxNumber
Téléphone (domicile) HomeTelephoneNumber
Téléphone 2 (domicile) Home2TelephoneNumber
Icône FormDescription.Icon
Importance Importance
Dans le dossier Parent
Initiales Initials
Adresse Internet de la disponibilité InternetFreeBusyAddress
RNIS ISDNNumber
Titre JobTitle
Journal Journal
Type de courrier indésirable Non applicable
Langue Language
Nom LastName
Heure du dernier enregistrement Non applicable
Emplacement Location
Adresse postale MailingAddress
Indicateur de l'adresse postale Non applicable
Nom du responsable ManagerName
État de la réunion MeetingStatus
Message Body
Classe du message MessageClass
Indicateur de message FlagStatus
Deuxième prénom MiddleName
Kilométrage Mileage
Téléphone mobile MobileTelephoneNumber
Modifié le LastModificationTime
Surnom NickName
Notes Body
Bureau OfficeLocation
Participants facultatifs OptionalAttendees
Numéro d'identification de l'organisation OrganizationalIDNumber
Organisateur Organizer
Autre adresse OtherAddress
Ville (autre) OtherAddressCity
Pays (autre) OtherAddressCountry
B.P. (autre) OtherAddressPostOfficeBox
Code postal (autre) OtherAddressPostalCode
Dép/Région (autre) OtherAddressState
Rue (autre) OtherAddressStreet
Autre télécopie OtherFaxNumber
Autre téléphone OtherTelephoneNumber
Version interne d'Outlook OutlookInternalVersion
Version d'Outlook OutlookVersion
Propriétaire Owner
Radiomessagerie PagerNumber
Page d'accueil personnelle PersonalHomePage
Téléphone n sélectionné Non applicable
Sélecteur de téléphone n Non applicable
B.P. HomeAddressPostOfficeBox
Téléphone principal PrimaryTelephoneNumber
Priorité Importance
Privé Sensitivity
Profession Profession
Radio téléphone RadioTelephoneNumber
Lu UnRead
Reçu ReceivedTime
Périodicité RecurrencePattern.RecurrenceType
Critère de périodicité Non applicable
Fin de la périodicité RecurrencePattern.PatternEndDate
Début de la périodicité RecurrencePattern.PatternStartDate
Périodique IsRecurring
Recommandé par ReferredBy
Rappel à l'avance ReminderMinutesBeforeStart
Rappel ReminderSet
Le Rappel ignore l'option par défaut ReminderOverrideDefault
Signal sonore du rappel ReminderPlaySound
Fichier son du rappel ReminderSoundFile
Heure du rappel ReminderTime
Rubrique du rappel Non applicable
État à distance RemoteStatus
État de la demande Non applicable
Demandée par Non applicable
Participants obligatoires RequiredAttendees
Ressources Resources
Réponse demandée ResponseRequested
Durée de récupération Non applicable
Rôle Role
Priorité Schedule+ SchedulePlusPriority
Envoyer du texte brut seulement Non applicable
Critère de diffusion Sensitivity
Envoyé SentOn
Afficher la disponibilité BusyStatus
Taille Size
Conjoint(e) Spouse
Début Start
Début StartDate
Dép/Région HomeAddressState
État Status
Rue HomeAddressStreet
Objet Subject
Suffixe Suffix
Tâche d'équipe TeamTask
Télex TelexNumber
Titre Title
À To
Travail total TotalWork
État du suivi TrackingStatus
Téléphone TTY/TDD TTYTDDTelephoneNumber
Champ Utilisateur 1 User1
Champ Utilisateur 2 User2
Champ Utilisateur 3 User3
Champ Utilisateur 4 User4
Page Web WebPage
Code Postal HomeAddressPostalCode
-----------------------------------
Fin de copie

vraiment pratique ce truc ! je sens que ça fera encore un classeur en
téléchargement sur excelabo :-)

--
JLuc

thanks !

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

Misange avait soumis l'idée :

Super !
Est ce que tu crois qu'on peut raffiner un peu encore : les contacts
qui sont à afficher ne sont qu'un sous groupe des contacts uotlook.
Ils sont caractérisés par le fait qu'ils appartiennent tous à la
catégorie "professionnel" par exemple.
Encore une chose : ou trouves tu la liste de tous les items présents
dans les contacts (en fait leur nom VBA) ?
Trouver dans l'aide Outlook avec :

Champs Outlook et propriétés équivalentes

Debut de copie
------------------------------------------------
Nom de champs du Sélecteur de champs Outlook Nom de propriété
équivalente de modèle d'objet Outlook
% achevé PercentComplete
Compte Account
Travail réel ActualWork
Adresse sélectionnée Non applicable
Sélecteur d'adresses Non applicable
Journée entière AllDayEvent
Anniversaire de mariage ou fête Anniversary
Assignée DelegationState
Nom de l'assistant(e) AssistantName
Téléphone de l'assistant(e) AssistantTelephoneNumber
Pièce jointe Attachments
Cci BCC
Informations facturation BillingInformation
Anniversaire Birthday
Adresse (bureau) BusinessAddress
Ville (bureau) BusinessAddressCity
Pays (bureau) BusinessAddressCountry
B.P. (bureau) BusinessAddressPostOfficeBox
Code postal (bureau) BusinessAddressPostalCode
État (bureau) BusinessAddressState
Rue (bureau) BusinessAddressStreet
Télécopie (bureau) BusinessFaxNumber
Page d'accueil professionnelle BusinessHomePage
Téléphone (bureau) BusinessTelephoneNumber
Téléphone 2 (bureau) Business2TelephoneNumber
Rappel CallbackTelephoneNumber
Tél. voiture CarTelephoneNumber
Catégories Categories
Cc CC
Modifié par Non applicable
Enfants Children
Ville HomeAddressCity
Couleur Color
Société Companies
Société CompanyName
Téléphone société CompanyMainTelephoneNumber
Terminée Complete
Nom de réseau de l'ordinateur ComputerNetworkName
Contact FormDescription.ContactName
Contacts Links
Contenu Body
Conversation ConversationTopic
Pays HomeAddressCountry
Créé le CreationTime
Code client CustomerID
Terminée le DateCompleted
Différer jusqu'au DeferredDeliveryTime
Service Department
Nom de la liste de distribution DLName
Ne pas autoarchiver NoAging
État du téléchargement Non applicable
Échéance avant le FlagDueBy
Échéance DueDate
Durée Duration
Adr. de messagerie Email1Address
Adr. de messagerie 2 Email2Address
Adr. de messagerie 3 Email3Address
Messagerie sélectionnée Non applicable
Sélecteur de messagerie Non applicable
Fin End
Type d'entrée Type
Date d'expiration ExpiryTime
Classer sous FileAs
Prénom FirstName
État de l'indicateur FlagStatus
Indicateur de suivi FlagRequest
De SentOnBehalfOfName
Site FTP FTPSite
Nom complet FullName
Sexe Gender
Code gouvernement GovernmentIDNumber
Envoyer les réponses à ReplyRecipientNames
Passe-temps Hobby
Adresse (domicile) HomeAddress
Ville (domicile) HomeAddressCity
Pays (domicile) HomeAddressCountry
B.P. (domicile) HomeAddressPostOfficeBox
Code postal (domicile) HomeAddressPostalCode
Dép/Région (domicile) HomeAddressState
Rue (domicile) HomeAddressStreet
Télécopie (domicile) HomeFaxNumber
Téléphone (domicile) HomeTelephoneNumber
Téléphone 2 (domicile) Home2TelephoneNumber
Icône FormDescription.Icon
Importance Importance
Dans le dossier Parent
Initiales Initials
Adresse Internet de la disponibilité InternetFreeBusyAddress
RNIS ISDNNumber
Titre JobTitle
Journal Journal
Type de courrier indésirable Non applicable
Langue Language
Nom LastName
Heure du dernier enregistrement Non applicable
Emplacement Location
Adresse postale MailingAddress
Indicateur de l'adresse postale Non applicable
Nom du responsable ManagerName
État de la réunion MeetingStatus
Message Body
Classe du message MessageClass
Indicateur de message FlagStatus
Deuxième prénom MiddleName
Kilométrage Mileage
Téléphone mobile MobileTelephoneNumber
Modifié le LastModificationTime
Surnom NickName
Notes Body
Bureau OfficeLocation
Participants facultatifs OptionalAttendees
Numéro d'identification de l'organisation OrganizationalIDNumber
Organisateur Organizer
Autre adresse OtherAddress
Ville (autre) OtherAddressCity
Pays (autre) OtherAddressCountry
B.P. (autre) OtherAddressPostOfficeBox
Code postal (autre) OtherAddressPostalCode
Dép/Région (autre) OtherAddressState
Rue (autre) OtherAddressStreet
Autre télécopie OtherFaxNumber
Autre téléphone OtherTelephoneNumber
Version interne d'Outlook OutlookInternalVersion
Version d'Outlook OutlookVersion
Propriétaire Owner
Radiomessagerie PagerNumber
Page d'accueil personnelle PersonalHomePage
Téléphone n sélectionné Non applicable
Sélecteur de téléphone n Non applicable
B.P. HomeAddressPostOfficeBox
Téléphone principal PrimaryTelephoneNumber
Priorité Importance
Privé Sensitivity
Profession Profession
Radio téléphone RadioTelephoneNumber
Lu UnRead
Reçu ReceivedTime
Périodicité RecurrencePattern.RecurrenceType
Critère de périodicité Non applicable
Fin de la périodicité RecurrencePattern.PatternEndDate
Début de la périodicité RecurrencePattern.PatternStartDate
Périodique IsRecurring
Recommandé par ReferredBy
Rappel à l'avance ReminderMinutesBeforeStart
Rappel ReminderSet
Le Rappel ignore l'option par défaut ReminderOverrideDefault
Signal sonore du rappel ReminderPlaySound
Fichier son du rappel ReminderSoundFile
Heure du rappel ReminderTime
Rubrique du rappel Non applicable
État à distance RemoteStatus
État de la demande Non applicable
Demandée par Non applicable
Participants obligatoires RequiredAttendees
Ressources Resources
Réponse demandée ResponseRequested
Durée de récupération Non applicable
Rôle Role
Priorité Schedule+ SchedulePlusPriority
Envoyer du texte brut seulement Non applicable
Critère de diffusion Sensitivity
Envoyé SentOn
Afficher la disponibilité BusyStatus
Taille Size
Conjoint(e) Spouse
Début Start
Début StartDate
Dép/Région HomeAddressState
État Status
Rue HomeAddressStreet
Objet Subject
Suffixe Suffix
Tâche d'équipe TeamTask
Télex TelexNumber
Titre Title
À To
Travail total TotalWork
État du suivi TrackingStatus
Téléphone TTY/TDD TTYTDDTelephoneNumber
Champ Utilisateur 1 User1
Champ Utilisateur 2 User2
Champ Utilisateur 3 User3
Champ Utilisateur 4 User4
Page Web WebPage
Code Postal HomeAddressPostalCode
-----------------------------------
Fin de copie

vraiment pratique ce truc ! je sens que ça fera encore un classeur en
téléchargement sur excelabo :-)

merci JB

ca marche.

avec un 'on error resume next' ca va au bout.

et pour acceder au contenu , toi qui sais tout ,

y' a moyen ?

encore merci