Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une
procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr
exemple, on choisis le nom du contact Outlook dans une cellule Excel muni
d'un déroulant et l'adresse s'afficherait toute seule !
Quelqu'un peut-il m'aider ?
--
coco
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
JLuc
coco74 avait soumis l'idée :
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ?
Si tu n'est pas trop presse, j'ai fais ca avec word (il ne doit pas y avoir trop de difference). Des que je reviens du travail je te file le code JLuc
coco74 avait soumis l'idée :
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une
procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr
exemple, on choisis le nom du contact Outlook dans une cellule Excel muni
d'un déroulant et l'adresse s'afficherait toute seule !
Quelqu'un peut-il m'aider ?
Si tu n'est pas trop presse, j'ai fais ca avec word (il ne doit pas y
avoir trop de difference).
Des que je reviens du travail je te file le code
JLuc
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ?
Si tu n'est pas trop presse, j'ai fais ca avec word (il ne doit pas y avoir trop de difference). Des que je reviens du travail je te file le code JLuc
coco74
Merci d'avance -- coco
"JLuc" wrote:
coco74 avait soumis l'idée :
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ?
Si tu n'est pas trop presse, j'ai fais ca avec word (il ne doit pas y avoir trop de difference). Des que je reviens du travail je te file le code JLuc
Merci d'avance
--
coco
"JLuc" wrote:
coco74 avait soumis l'idée :
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une
procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr
exemple, on choisis le nom du contact Outlook dans une cellule Excel muni
d'un déroulant et l'adresse s'afficherait toute seule !
Quelqu'un peut-il m'aider ?
Si tu n'est pas trop presse, j'ai fais ca avec word (il ne doit pas y
avoir trop de difference).
Des que je reviens du travail je te file le code
JLuc
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ?
Si tu n'est pas trop presse, j'ai fais ca avec word (il ne doit pas y avoir trop de difference). Des que je reviens du travail je te file le code JLuc
michdenis
Bonjour Coco74,
Tu dois ajouter la référence "Microsoft Outlook x.x Objects librairy" à ton projet VBA.
à partir de la fenêtre de l'éditeur de macro, barre de menus / outils / référence.
La procédure suivante te renvoie l'adresse internet d'un individu figurant dans ton carnet d'adresse. Évidemment tu peux remplacer le nom par une référence d'une cellule de ta feuille de calcul valide.
Cette procédure n'a pas de gestion d'errreur... si le nom de l'usager n'existe pas parmi tes contacts ....
'----------------------------- Sub ImporterContacts()
Dim objApp As Outlook.Application Dim objNS As Outlook.Namespace Dim ObjFolder As MAPIFolder
Set objApp = New Outlook.Application Set objNS = objApp.GetNamespace("MAPI") Set ObjFolder = objNS.GetDefaultFolder(olFolderContacts)
MsgBox ObjFolder.Items("michdenis").Email1Address
Set objApp = Nothing: Set objNS = Nothing: Set ObjFolder = Nothing End Sub '-----------------------------
Salutations!
"coco74" a écrit dans le message de news: Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ? -- coco
Bonjour Coco74,
Tu dois ajouter la référence "Microsoft Outlook x.x Objects librairy"
à ton projet VBA.
à partir de la fenêtre de l'éditeur de macro,
barre de menus / outils / référence.
La procédure suivante te renvoie l'adresse internet d'un individu figurant
dans ton carnet d'adresse. Évidemment tu peux remplacer le nom par
une référence d'une cellule de ta feuille de calcul valide.
Cette procédure n'a pas de gestion d'errreur... si le nom de l'usager
n'existe pas parmi tes contacts ....
'-----------------------------
Sub ImporterContacts()
Dim objApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim ObjFolder As MAPIFolder
Set objApp = New Outlook.Application
Set objNS = objApp.GetNamespace("MAPI")
Set ObjFolder = objNS.GetDefaultFolder(olFolderContacts)
MsgBox ObjFolder.Items("michdenis").Email1Address
Set objApp = Nothing: Set objNS = Nothing: Set ObjFolder = Nothing
End Sub
'-----------------------------
Salutations!
"coco74" <coco74@discussions.microsoft.com> a écrit dans le message de news: CA638925-37FD-4ABC-B33A-37A4936AD6E4@microsoft.com...
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une
procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr
exemple, on choisis le nom du contact Outlook dans une cellule Excel muni
d'un déroulant et l'adresse s'afficherait toute seule !
Quelqu'un peut-il m'aider ?
--
coco
Tu dois ajouter la référence "Microsoft Outlook x.x Objects librairy" à ton projet VBA.
à partir de la fenêtre de l'éditeur de macro, barre de menus / outils / référence.
La procédure suivante te renvoie l'adresse internet d'un individu figurant dans ton carnet d'adresse. Évidemment tu peux remplacer le nom par une référence d'une cellule de ta feuille de calcul valide.
Cette procédure n'a pas de gestion d'errreur... si le nom de l'usager n'existe pas parmi tes contacts ....
'----------------------------- Sub ImporterContacts()
Dim objApp As Outlook.Application Dim objNS As Outlook.Namespace Dim ObjFolder As MAPIFolder
Set objApp = New Outlook.Application Set objNS = objApp.GetNamespace("MAPI") Set ObjFolder = objNS.GetDefaultFolder(olFolderContacts)
MsgBox ObjFolder.Items("michdenis").Email1Address
Set objApp = Nothing: Set objNS = Nothing: Set ObjFolder = Nothing End Sub '-----------------------------
Salutations!
"coco74" a écrit dans le message de news: Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ? -- coco
JLuc
*Bonjour coco74*, Chose promise chose due :
' Reference a un objet Outlook On Error Resume Next Set ol = GetObject(, "Outlook.Application")
' Si pas ouvert (Outlook) creation If Err.Number <> 0 Then Set ol = CreateObject("Outlook.Application") End If On Error GoTo 0
' Creation d'un objet Namespace Set ns = ol.GetNamespace("MAPI") On Error Resume Next
' Creation d'un objet MapiFolder Set fld = ns.GetDefaultFolder(olFolderContacts)
' Redimentionnement du tableau ReDim TableOutlook(1 To fld.Items.Count, 1 To 3)
' Recuperation de tous les enregistrements For i = 1 To fld.Items.Count Set itm = fld.Items(i) TableOutlook(i, 1) = itm.CompanyName TableOutlook(i, 2) = itm.FullName TableOutlook(i, 3) = itm.BusinessFaxNumber Next i Set ol = Nothing
Et, comme l'a signale michdenis :
Tu dois ajouter la référence "Microsoft Outlook x.x Objects librairy" à ton projet VBA.
Si tu rencontre des problemes, reviens nous voir ;-)
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ?
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour coco74*,
Chose promise chose due :
' Reference a un objet Outlook
On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
' Si pas ouvert (Outlook) creation
If Err.Number <> 0 Then
Set ol = CreateObject("Outlook.Application")
End If
On Error GoTo 0
' Creation d'un objet Namespace
Set ns = ol.GetNamespace("MAPI")
On Error Resume Next
' Creation d'un objet MapiFolder
Set fld = ns.GetDefaultFolder(olFolderContacts)
' Redimentionnement du tableau
ReDim TableOutlook(1 To fld.Items.Count, 1 To 3)
' Recuperation de tous les enregistrements
For i = 1 To fld.Items.Count
Set itm = fld.Items(i)
TableOutlook(i, 1) = itm.CompanyName
TableOutlook(i, 2) = itm.FullName
TableOutlook(i, 3) = itm.BusinessFaxNumber
Next i
Set ol = Nothing
Et, comme l'a signale michdenis :
Tu dois ajouter la référence "Microsoft Outlook x.x Objects librairy"
à ton projet VBA.
Si tu rencontre des problemes, reviens nous voir ;-)
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une
procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr
exemple, on choisis le nom du contact Outlook dans une cellule Excel muni
d'un déroulant et l'adresse s'afficherait toute seule !
Quelqu'un peut-il m'aider ?
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
' Reference a un objet Outlook On Error Resume Next Set ol = GetObject(, "Outlook.Application")
' Si pas ouvert (Outlook) creation If Err.Number <> 0 Then Set ol = CreateObject("Outlook.Application") End If On Error GoTo 0
' Creation d'un objet Namespace Set ns = ol.GetNamespace("MAPI") On Error Resume Next
' Creation d'un objet MapiFolder Set fld = ns.GetDefaultFolder(olFolderContacts)
' Redimentionnement du tableau ReDim TableOutlook(1 To fld.Items.Count, 1 To 3)
' Recuperation de tous les enregistrements For i = 1 To fld.Items.Count Set itm = fld.Items(i) TableOutlook(i, 1) = itm.CompanyName TableOutlook(i, 2) = itm.FullName TableOutlook(i, 3) = itm.BusinessFaxNumber Next i Set ol = Nothing
Et, comme l'a signale michdenis :
Tu dois ajouter la référence "Microsoft Outlook x.x Objects librairy" à ton projet VBA.
Si tu rencontre des problemes, reviens nous voir ;-)
Bonjour à tous,
Malgré mes recherches sur les posts existants, je ne trouve pas trace d'une procédure permettant d'utiliser les contacts d'Outlook dans Excel. PAr exemple, on choisis le nom du contact Outlook dans une cellule Excel muni d'un déroulant et l'adresse s'afficherait toute seule ! Quelqu'un peut-il m'aider ?
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
