Lien liste de contract Outlook et Excel

Marsh Posté le 10-07-2008 à 18:05:36

Salut à tous,
Je me suis inscris car je me retrouve sans solution devant un problème assez laborieux pour moi.
Voila, j'ai créé un bon de commande assez automatisé. Et mon responsable (je suis stagiaire) veut que le nom et adresse du prestataire soit le plus automatisé possible, avec un lien direct avec Outlook.

C'est a dire que j'ai une liste de contact dispo dans Outlook et que je souhaiterais pouvoir lier avec mon fichier.
J'ai essayé d'exporter la liste, mais cette manière de faire empeche de prendre compte les modifs ou les ajouts de la liste effecuté sur outlook...
Qqun a une solution?

Merci d'avance.

Si vous voulez plus d'infos, je peux détailler le process.

Merci beaucoup.

Reply

Marsh Posté le 10-07-2008 à 18:05:36

Reply

Marsh Posté le 11-07-2008 à 11:23:43

Bonjour

Oui je voudrais un peu plus d'infos.
Tu veux recuperer le carnet d'adresse d'outlook dynamiquement sous excel ? Et envoyer un mail a partir d'excel ?

Cordialement

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 11-07-2008 à 11:47:49

En fait, j'ai créé de toute pièce un bon de commande.
Et donc, je voudrais que les champs concernant le nom, l'adresse, le CP et la ville soient disponible via une liste déroulante par exemple.

Mais la condition indispensable c'est que ces champs correspondent aux coordonnées des contacts que je dispose dans Outlook, de sorte à ce que lorsque qqun de la societé change, ou rajoute un nouveau contact, le fichier excel soit mis a jour également.

Je veux donc récupérer le carnet d'adresse dynamiquement comme tu le dis, pour pouvoir remplir quasi automatiquement les champs nom adresse etc..

Suis assez clair?

Merci beaucoup d'avoir répondu en tout cas.

Reply

Marsh Posté le 15-07-2008 à 11:06:49

Je me pencherais sur le sujet dans la semaine
(Semaine pas male blindée)

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 15-07-2008 à 16:29:08

OK merci c super sympa de ta part..

Et j'ai un autre souci, complètement différent celui là, mais pendant qu'on y est.. Est ce que vous connaissez des expert en CEGID, le logiciel comptable? Ou des forums de discussion sur le sujet, je galère sur une application.

Merci pour vos réponses en tout cas.

Reply

Marsh Posté le 16-07-2008 à 17:05:41

Bonjour

Je poste la macro ca peut servir :

Citation :

Sub ImportTiersOutlook()
Application.ScreenUpdating = False
Sheets(1).Select 'Selectionne la feuille 1

'***** Connexion avec le dossier des contacts d'outlook
Dim myOlApp, myNameSpace, myFolder
Set myOlApp = CreateObject("Outlook.Application" )
Set myNameSpace = myOlApp.GetNamespace("MAPI" )
Set myFolder = myNameSpace.GetDefaultFolder(10) 'olFolderContacts
'/*****

'***** Compte le nombre de contacts
Nb = myFolder.Items.Count
'/*****

'***** Definis la variable L comme le 1er numéro de ligne renseigner _
(l'entete etantsur la ligne 1)
L = 2
'/*****

'***** Boucle qui va mettre dans chaque cellule les informationsb _
L s'increment a la fin pour passer à la ligne d'en dessous
On Error Resume Next
Dim X As Integer
For X = 1 To Nb
With myFolder.Items(X)
a = .FirstName
Cells(L, 1).Value = .Title
Cells(L, 2).Value = .LastName
Cells(L, 3).Value = .FirstName
Cells(L, 4).Value = .CompanyName
Cells(L, 5).Value = .Department
Cells(L, 6).Value = .BusinessAddressStreet
Cells(L, 7).Value = .BusinessAddressCity
Cells(L, 8).Value = .BusinessAddressState
Cells(L, 9).Value = .BusinessAddressPostalCode
Cells(L, 10).Value = .BusinessAddressCountry
Cells(L, 11).Value = .BusinessFaxNumber
Cells(L, 12).Value = .BusinessTelephoneNumber
Cells(L, 13).Value = .MobileTelephoneNumber
Cells(L, 14).Value = .Email1Address
End With
L = L + 1
Next
'/*****

'***** Récupère toutes les propriétés et les mets dans la feuille 2 avec le numéro d'item _
Tu auras peut etre besoin d'autres infos que celles que j'ai sélectionné
Sheets(2).Select
For i = 0 To myFolder.Items(1).ItemProperties.Count - 1
Cells(i + 1, 1) = myFolder.Items(1).ItemProperties.Item(i).Name
Cells(i + 1, 2) = i
Next i
Sheets(1).Select
Cells(1, 1).Select
Columns.AutoFit
Application.ScreenUpdating = True
'/*****

End Sub

Sinon essaie ce fichier si tu ne connais pas trop les macros :
Fichier ici
Une fois ouvert tu vas dans outils, macro et tu click sur ImportTiersOutlook

Cordialement

Message édité par SuppotDeSaTante le 16-07-2008 à 17:06:28

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 17-07-2008 à 14:20:14

Waou ça tue.. Mais meme la j'ai peur de pas réussir à l'utiliser..

Tu pourrais juste m'aider (encore) en me disant comment séléctionner une partie seulement des contacts outlook? C'"est à dire que les contacts que je veux récupérer sont dans les dossiers publics. Tu vois?

Bref en tout cas 1000 merci, c super cool de ta part, vraiment merci beaucoup.

Message cité 1 fois

Reply

Marsh Posté le 17-07-2008 à 14:24:07

ronanlc a écrit :

Waou ça tue.. Mais meme la j'ai peur de pas réussir à l'utiliser...

Pourquoi ca donc ?

Pour les dossiers publics je regarderais ca ce soir