Lien entre contact de outlook et Excel

Le
FA
Bonjour,

est il possible dans excel de voir la base de donées contact de outlook,
comme ça lorsque je fais une facture je puise les coordonnées directement
dans outlook

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatane
Le #4974131
Bonjour "FA"

Essaie ceci, ce n'est pas abouti (je m'y suis lancé à le faire hier) mais
c'est un début !

----------------------------------------------
Sub Ajout_Contacts()
Range("A2").Select
For Each CONTACTS In Cells
If ActiveCell.Value = "" Then
Exit Sub
Else
Set olApp = CreateObject("Outlook.Application")
Set olitem = olApp.CreateItem(2)
With olitem
.FirstName = ActiveCell.Value
.LastName = ActiveCell.Offset(0, 1).Value
.JobTitle = ActiveCell.Offset(0, 2).Value
.CompanyName = ActiveCell.Offset(0, 3).Value
.BusinessTelephoneNumber = ActiveCell.Offset(0, 4).Value
.HomeTelephoneNumber = ActiveCell.Offset(0, 5).Value
.BusinessFaxNumber = ActiveCell.Offset(0, 6).Value
.MobileTelephoneNumber = ActiveCell.Offset(0, 7).Value
.HomeAddressStreet = ActiveCell.Offset(0, 8).Value
.HomeAddressPostalCode = ActiveCell.Offset(0, 9).Value
.HomeAddressCity = ActiveCell.Offset(0, 10).Value
.Email1Address = ActiveCell.Offset(0, 11).Value
.Email2Address = ActiveCell.Offset(0, 12).Value
.WebPage = ActiveCell.Offset(0, 13).Value
.IMAddress = ActiveCell.Offset(0, 14).Value
.Body = ActiveCell.Offset(0, 15).Value
.Categories = ActiveCell.Offset(0, 16).Value
.Birthday = ActiveCell.Offset(0, 17).Value
.Save
End With
End If
ActiveCell.Offset(1, 0).Select
Next CONTACTS
End Sub

Sub Extraction_Contacts()
Feuil2.Activate
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olfFolder = olns.GetDefaultFolder(10)
ligne = 2
On Error Resume Next
For Each i In olfFolder.Items
Cells(ligne, 2) = i.FirstName
Cells(ligne, 1) = i.LastName
Cells(ligne, 3) = i.JobTitle
Cells(ligne, 4) = i.CompanyName
Cells(ligne, 5) = i.BusinessTelephoneNumber
Cells(ligne, 6) = i.HomeTelephoneNumber
Cells(ligne, 7) = i.BusinessFaxNumber
Cells(ligne, 8) = i.MobileTelephoneNumber
Cells(ligne, 9) = i.HomeAddressStreet
Cells(ligne, 10) = i.HomeAddressPostalCode
Cells(ligne, 11) = i.HomeAddressCity
Cells(ligne, 12) = i.Email1Address
Cells(ligne, 13) = i.Email2Address
Cells(ligne, 14) = i.WebPage
Cells(ligne, 15) = i.IMAddress
Cells(ligne, 16) = i.Body
Cells(ligne, 17) = i.Categories
Cells(ligne, 18) = i.Birthday
ligne = ligne + 1
Next i
On Error GoTo 0
[A1].Sort Key1:=[A1], Header:=xlYes
End Sub

'Account , propriété
'Actions , propriété
'Anniversary , propriété
'Application , propriété
'AssistantName , propriété
'AssistantTelephoneNumber , propriété
'Attachments , propriété
'AutoResolvedWinner , propriété
'BillingInformation , propriété
'Birthday , propriété
'Body , propriété
'Business2TelephoneNumber , propriété
'BusinessAddress , propriété
'BusinessAddressCity , propriété
'BusinessAddressCountry , propriété
'BusinessAddressPostalCode , propriété
'BusinessAddressPostOfficeBox , propriété
'BusinessAddressState , propriété
'BusinessAddressStreet , propriété
'BusinessFaxNumber , propriété
'BusinessHomePage , propriété
'BusinessTelephoneNumber , propriété
'CallbackTelephoneNumber , propriété
'CarTelephoneNumber , propriété
'Categories , propriété
'Children , propriété
'Class , propriété
'Companies , propriété
'CompanyAndFullName , propriété
'CompanyLastFirstNoSpace , propriété
'CompanyLastFirstSpaceOnly , propriété
'CompanyMainTelephoneNumber , propriété
'CompanyName , propriété
'ComputerNetworkName , propriété
'Conflicts , propriété
'ConversationIndex , propriété
'ConversationTopic , propriété
'CreationTime , propriété
'CustomerID , propriété
'Department , propriété
'DownloadState , propriété
'Email1Address , propriété
'Email1AddressType , propriété
'Email1DisplayName , propriété
'Email1EntryID , propriété
'Email2Address , propriété
'Email2AddressType , propriété
'Email2DisplayName , propriété
'Email2EntryID , propriété
'Email3Address , propriété
'Email3AddressType , propriété
'Email3DisplayName , propriété
'Email3EntryID , propriété
'EntryID , propriété
'FileAs , propriété
'FirstName , propriété
'FormDescription , propriété
'FTPSite , propriété
'FullName , propriété
'FullNameAndCompany , propriété
'Gender , propriété
'GetInspector , propriété
'GovernmentIDNumber , propriété
'HasPicture , propriété
'Hobby , propriété
'Home2TelephoneNumber , propriété
'HomeAddress , propriété
'HomeAddressCity , propriété
'HomeAddressCountry , propriété
'HomeAddressPostalCode , propriété
'HomeAddressPostOfficeBox , propriété
'HomeAddressState , propriété
'HomeAddressStreet , propriété
'HomeFaxNumber , propriété
'HomeTelephoneNumber , propriété
'IMAddress , propriété
'Importance , propriété
'Initials , propriété
'InternetFreeBusyAddress , propriété
'IsConflict , propriété
'ISDNNumber , propriété
'ItemProperties , propriété
'JobTitle , propriété
'Journal , propriété
'Language , propriété
'LastFirstAndSuffix , propriété
'LastFirstNoSpace , propriété
'LastFirstNoSpaceAndSuffix , propriété
'LastFirstNoSpaceCompany , propriété
'LastFirstSpaceOnly , propriété
'LastFirstSpaceOnlyCompany , propriété
'LastModificationTime , propriété
'LastName , propriété
'LastNameAndFirstName , propriété
'Links , propriété
'MailingAddress , propriété
'MailingAddressCity , propriété
'MailingAddressCountry , propriété
'MailingAddressPostalCode , propriété
'MailingAddressPostOfficeBox , propriété
'MailingAddressState , propriété
'MailingAddressStreet , propriété
'ManagerName , propriété
'MarkForDownload , propriété
'MessageClass , propriété
'MiddleName , propriété
'Mileage , propriété
'MobileTelephoneNumber , propriété
'NetMeetingAlias , propriété
'NetMeetingServer , propriété
'NickName , propriété
'NoAging , propriété
'OfficeLocation , propriété
'OrganizationalIDNumber , propriété
'OtherAddress , propriété
'OtherAddressCity , propriété
'OtherAddressCountry , propriété
'OtherAddressPostalCode , propriété
'OtherAddressPostOfficeBox , propriété
'OtherAddressState , propriété
'OtherAddressStreet , propriété
'OtherFaxNumber , propriété
'OtherTelephoneNumber , propriété
'OutlookInternalVersion , propriété
'OutlookVersion , propriété
'PagerNumber , propriété
'Parent , propriété
'PersonalHomePage , propriété
'PrimaryTelephoneNumber , propriété
'Profession , propriété
'RadioTelephoneNumber , propriété
'ReferredBy , propriété
'Saved , propriété
'SelectedMailingAddress , propriété
'Sensitivity , propriété
'Session , propriété
'Size , propriété
'Spouse , propriété
'Subject , propriété
'Suffix , propriété
'TelexNumber , propriété
'Title , propriété
'TTYTDDTelephoneNumber , propriété
'UnRead , propriété
'User1 , propriété
'User2 , propriété
'User3 , propriété
'User4 , propriété
'UserCertificate , propriété
'UserProperties , propriété
'WebPage , propriété
'YomiCompanyName , propriété
'YomiFirstName , propriété
'YomiLastName , propriété

----------------------------------------------
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/



Bonjour,

est il possible dans excel de voir la base de dones contact de outlook,
comme a lorsque je fais une facture je puise les coordonnes directement
dans outlook

merci



JB
Le #4974081
Bonjour,

http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip

JB
http://boisgontierjacques.free.fr

On 12 oct, 12:52, "FA"
Bonjour,

est il possible dans excel de voir la base de donées contact de outlook,
comme ça lorsque je fais une facture je puise les coordonnées directe ment
dans outlook

merci


Tatane
Le #4974041
Désolé,

J'ai oublié de référencer la source de ma macro mais je vois que "JB" s'en
est chargé. Merci.

J'en profite pour demander si il y a moyen de tester la présence de contacts
déjà existants afin de ne pas créer de doubles dans outlook.

Par avance, merci.

--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/



Bonjour,

http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip

JB
http://boisgontierjacques.free.fr

On 12 oct, 12:52, "FA"
Bonjour,

est il possible dans excel de voir la base de donées contact de outlook,
comme ça lorsque je fais une facture je puise les coordonnées directement
dans outlook

merci







FA
Le #4973891
mais comment dois-je proceder avec le fichier excel "jb-outlook.zip" pour
qu'il prennent mes contacts ?

merci



"FA" news:
Bonjour,

est il possible dans excel de voir la base de donées contact de outlook,
comme ça lorsque je fais une facture je puise les coordonnées directement
dans outlook

merci


Al
Le #4987051
j'insiste

"FA"
mais comment dois-je proceder avec le fichier excel "jb-outlook.zip" pour
qu'il prennent mes contacts ?

merci



"FA" news:
Bonjour,

est il possible dans excel de voir la base de donées contact de outlook,
comme ça lorsque je fais une facture je puise les coordonnées directement
dans outlook

merci





Publicité
Poster une réponse
Anonyme