Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lien entre contact de outlook et Excel

5 réponses
Avatar
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

5 réponses

Avatar
Tatane
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



Avatar
JB
Bonjour,

http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip

JB
http://boisgontierjacques.free.fr

On 12 oct, 12:52, "FA" wrote:
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


Avatar
Tatane
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip

JB
http://boisgontierjacques.free.fr

On 12 oct, 12:52, "FA" wrote:
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







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

merci



"FA" a écrit dans le message de
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


Avatar
Al
j'insiste

"FA" a écrit dans le message de news:

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

merci



"FA" a écrit dans le message de
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