je suis totalement néophyte en programmation Excel et votre assistance me
serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word,
afin de sélectionner mes contacts Outlook et ainsi pour transférer dans
excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
For Each MyContact In objContact.AddressEntries I = I + 1 ListBox1.AddItem ListBox1.List(I, 0) = MyContact.Name ListBox1.List(I, 1) = MyContact.Address Next
Set objContact = Nothing Set MyNameSpace = Nothing Set objOutlook = Nothing
Exit Sub Erreur: MsgBox Err.Description Stop Resume End Sub
Michel
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word, afin de sélectionner mes contacts Outlook et ainsi pour transférer dans excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Sincères Salutations Frédéric Chombart
Salut,
Voici un exemple qui ne fait pas tout ce que tu demandes, mais pourra te
mettre sur la piste.
Sur un UserForm, place une listbox
Dans un module, déclares objOutlook
Public objOutlook As Outlook.Application
Private Sub UserForm_Initialize()
Dim MyNameSpace, objContact, MyContact
Dim I As Integer
On Error GoTo Erreur
Set objOutlook = New Outlook.Application
Set MyNameSpace = objOutlook.GetNamespace("MAPI")
Set objContact = MyNameSpace.AddressLists.Item(1)
For Each MyContact In objContact.AddressEntries
I = I + 1
ListBox1.AddItem
ListBox1.List(I, 0) = MyContact.Name
ListBox1.List(I, 1) = MyContact.Address
Next
Set objContact = Nothing
Set MyNameSpace = Nothing
Set objOutlook = Nothing
Exit Sub
Erreur:
MsgBox Err.Description
Stop
Resume
End Sub
Michel
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me
serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word,
afin de sélectionner mes contacts Outlook et ainsi pour transférer dans
excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
For Each MyContact In objContact.AddressEntries I = I + 1 ListBox1.AddItem ListBox1.List(I, 0) = MyContact.Name ListBox1.List(I, 1) = MyContact.Address Next
Set objContact = Nothing Set MyNameSpace = Nothing Set objOutlook = Nothing
Exit Sub Erreur: MsgBox Err.Description Stop Resume End Sub
Michel
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word, afin de sélectionner mes contacts Outlook et ainsi pour transférer dans excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Sincères Salutations Frédéric Chombart
ClémentMarcotte
Bonjour,
Si c'est juste pour une fois, pourquoi ne pas exporter à partir d'Outlook. Si jamais il ne permet pas d'exporter directement directement au format Excel, il y a moyen d'exporter au format texte, et Excel peut facilement l'ouvrir ensuite.
"Frédéric Chombart" a écrit dans le message de news:42ea763c$0$920$
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word, afin de sélectionner mes contacts Outlook et ainsi pour transférer dans excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Sincères Salutations Frédéric Chombart
Bonjour,
Si c'est juste pour une fois, pourquoi ne pas exporter à partir d'Outlook.
Si jamais il ne permet pas d'exporter directement directement au format
Excel, il y a moyen d'exporter au format texte, et Excel peut facilement
l'ouvrir ensuite.
"Frédéric Chombart" <chombart.f@wanadoo.fr> a écrit dans le message de
news:42ea763c$0$920$8fcfb975@news.wanadoo.fr...
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me
serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word,
afin de sélectionner mes contacts Outlook et ainsi pour transférer dans
excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Si c'est juste pour une fois, pourquoi ne pas exporter à partir d'Outlook. Si jamais il ne permet pas d'exporter directement directement au format Excel, il y a moyen d'exporter au format texte, et Excel peut facilement l'ouvrir ensuite.
"Frédéric Chombart" a écrit dans le message de news:42ea763c$0$920$
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word, afin de sélectionner mes contacts Outlook et ainsi pour transférer dans excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Sincères Salutations Frédéric Chombart
Frédéric Chombart
Merci d'avoir pris le temps de me répondre Dès que j'aurai un peu de temps, j'essayerai de mettre ton conseil en pratique et ne manquerai pas de t'en tenir informé
"MPi" a écrit dans le message de news:
Salut,
Voici un exemple qui ne fait pas tout ce que tu demandes, mais pourra te mettre sur la piste.
Sur un UserForm, place une listbox Dans un module, déclares objOutlook Public objOutlook As Outlook.Application
Private Sub UserForm_Initialize() Dim MyNameSpace, objContact, MyContact Dim I As Integer
On Error GoTo Erreur
Set objOutlook = New Outlook.Application Set MyNameSpace = objOutlook.GetNamespace("MAPI") Set objContact = MyNameSpace.AddressLists.Item(1)
For Each MyContact In objContact.AddressEntries I = I + 1 ListBox1.AddItem ListBox1.List(I, 0) = MyContact.Name ListBox1.List(I, 1) = MyContact.Address Next
Set objContact = Nothing Set MyNameSpace = Nothing Set objOutlook = Nothing
Exit Sub Erreur: MsgBox Err.Description Stop Resume End Sub
Michel
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word, afin de sélectionner mes contacts Outlook et ainsi pour transférer dans excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Sincères Salutations Frédéric Chombart
Merci d'avoir pris le temps de me répondre
Dès que j'aurai un peu de temps, j'essayerai de mettre ton conseil en
pratique et ne manquerai pas de t'en tenir informé
"MPi" <MPi@discussions.microsoft.com> a écrit dans le message de news:
BA532BFA-6637-46CE-B47B-20C2DA176AC2@microsoft.com...
Salut,
Voici un exemple qui ne fait pas tout ce que tu demandes, mais pourra te
mettre sur la piste.
Sur un UserForm, place une listbox
Dans un module, déclares objOutlook
Public objOutlook As Outlook.Application
Private Sub UserForm_Initialize()
Dim MyNameSpace, objContact, MyContact
Dim I As Integer
On Error GoTo Erreur
Set objOutlook = New Outlook.Application
Set MyNameSpace = objOutlook.GetNamespace("MAPI")
Set objContact = MyNameSpace.AddressLists.Item(1)
For Each MyContact In objContact.AddressEntries
I = I + 1
ListBox1.AddItem
ListBox1.List(I, 0) = MyContact.Name
ListBox1.List(I, 1) = MyContact.Address
Next
Set objContact = Nothing
Set MyNameSpace = Nothing
Set objOutlook = Nothing
Exit Sub
Erreur:
MsgBox Err.Description
Stop
Resume
End Sub
Michel
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me
serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou
word,
afin de sélectionner mes contacts Outlook et ainsi pour transférer dans
excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
Merci d'avoir pris le temps de me répondre Dès que j'aurai un peu de temps, j'essayerai de mettre ton conseil en pratique et ne manquerai pas de t'en tenir informé
"MPi" a écrit dans le message de news:
Salut,
Voici un exemple qui ne fait pas tout ce que tu demandes, mais pourra te mettre sur la piste.
Sur un UserForm, place une listbox Dans un module, déclares objOutlook Public objOutlook As Outlook.Application
Private Sub UserForm_Initialize() Dim MyNameSpace, objContact, MyContact Dim I As Integer
On Error GoTo Erreur
Set objOutlook = New Outlook.Application Set MyNameSpace = objOutlook.GetNamespace("MAPI") Set objContact = MyNameSpace.AddressLists.Item(1)
For Each MyContact In objContact.AddressEntries I = I + 1 ListBox1.AddItem ListBox1.List(I, 0) = MyContact.Name ListBox1.List(I, 1) = MyContact.Address Next
Set objContact = Nothing Set MyNameSpace = Nothing Set objOutlook = Nothing
Exit Sub Erreur: MsgBox Err.Description Stop Resume End Sub
Michel
Bonjour
je suis totalement néophyte en programmation Excel et votre assistance me serait d'une grande aide
voila, je souhaite créer une zone de liste déroulante, dans excel ou word, afin de sélectionner mes contacts Outlook et ainsi pour transférer dans excel ou word leur nom, prénom, adresse, code postal, ville.
je suis persuadé que c'est possible et vous mets donc à l'épreuve
